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PREFACE 



The primary purpose of fhis manual is to provide a guide for better comprehension of the program listings supplied 
with the Xerox Control Progran) for Real-Time (CP-R) operating system. The programs and processors included are 
fhe System Generation program and the Monitor and all its ossociated tasks and subprooessors. 

The manual is intended For CP-R users who require an in-depth knowledge of the structure and internal functions of 
the operating system for system mointenance purposes. Since the CP-R System Technicol Manual and program list- 
ings are complementary, it is recommended that the listings be readily available when referencing this manual. 
Manuals offering other levels of information regarding CP-R features are outlined below. 

• Control Program for Real-Time/RT,BP Reference Manual, 90 30 85, is the principal source of reference 
information for the reol-time and batch processing features of CP-R; (i .e,, job control commands, system 
procedures, I/O procedures, program loading ond execution, hordwore interrupt and software interface, 
and service processors). The purpose of the manual is to define the rules for using background processing 
and real-time features. 

• Control Program for Real-Time/OPS Reference Manual, 90 30 86, is the principal source of reference in- 
formation for CP-R computer operators. It defines the rules for operator communication with /he system 
(I.e., key-ins and messages), system start-up and initialization, job and system control, peripheral device 
handling, and recovery procedures. 

• The Control Program for Real-Time/RT,BP User's Guide, 90 30 87, describes how to use the various batch 
and real-time featin'es that are basic to most Installations, it presents the information In a semitutorial 
format that offers the user a job-oriented approach toward learning the features of the operating system . 

• CP-R Availability Features Reference Manual, 90 31 10, describes the available techniques to rapidly 
identify a system problem as either a hardware or software malfunction that has already occurred, or to 
anticipate a potential system alarm. It also describes the techniques to further define the problem via 
software diagnostic criteria, including the &ror Log Lister (ELLA), ANALYZE processor, On-Line Ex- 
ercisers, and system alarm procedures. The manual is primarily addressed to computer operators, local 
system programmers and analysts, and Xerox Customer Service personnel. 

• Information for the language and applications processors that operate under CP-R is also described in sepa- 
rate manuals. These manuals are listed in the Related Kiblications page of this manual. 



VII 



1. CP-R INITIALIZATION ROUTINE 



V 



The CP-R Initialize routine seh up core prior to the execution of CP-R. It is entered froin the CP-R Bootstrap every 
time the system is booted from the disic. If also modifies the resident CP-R system (including oil system tables), the 
CP-R overlays, and the Job Control Processor. Modifications may be made from the C or OC device that is selected 
by a corresponding sense switch setting SSWl-3. If sense switch 4 is reset, the Initialize routine loads all programs 
on the FP area of the disk designated as resident foreground. The Initialize routine may extend into the background 
and con be overwritten by background programs, since it executes only once. In Figure 1 below, the backgrour>d 
first word address is the first page boundary after RBMEND (the end of resident CP-R). The Initialize routine termi- 
nates by entering the CP-R Control Task. 



( 



The general flow of the Initialize routine from CP-R Bootstrap entry to triggering the Control Tosk interrupt is illus- 
trated in Figure 2. 



Resident CP-R 



CP-R Initialize 
Routine 



RBMEND 



Figure 1. Initialize Routine Core Loyout 
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Figure 2. CP-R IniHolize Routine Overall Flow 



2. CP-R CONTROL TASK 



The CP-R Control Task is connected to the lowest priority s/stem interrupt. Among the functions performed by the 
Control Task ore 



• Key-in processing 

• Primary program njn 

• Primary program release 

• Background program load 

• Background sequencing 

• Background dump initiation 



• Real memory dump 

• Deferred ]/0 processing 

• Periodic service of all devices 
e Crash data handling 

e I/O error log handling 

• Perodic scheduling 



In facilities where there are no system interrupts/ the Control Task is connected to the Control Panel interrupt (see 
"Key-In IVocessor" later in this chapter). 



Structure 

The Control Task consists of a resident portion and a number of mwiitor overlays. The overlays are 

• Error logger (LOG) 



• Load module relecse (FGL1) 

• Load module run (FGL2) 

• Load module loader (FGL3) 

• Background program initiation (BKLl) 

• Background Abort/Exit/Dump (ABEX) 

• Key-in Processor (KEY1-KEY7) 



• Error summary (ESUM) 

• Crash saver (CRS, CRS2) 

e Crash-«ive dumper (CRD) 

• Direct crash dumper (CKD1,CKD2) 

• Periodic scheduler (SCHED, SCMSG) 



Function and Implementation 



RtsMtnt Cmitrel Task 



The resident portion of the Control Tosk functions as a scheduler for the various subtosks. The priority of the subtosks 
is determined by the order in which the resident Control Task tests the signal bits. 



Kty-la 



^^ ■ 



When the Gmlrol Panel Interrupt it triggered, its handler sets the flog in K:CTST to run KEY1 and triggers the 
interrupt for the G>ntrol Task dispatcher. 

When KEYl is entered, it determines whether on operotor key-in must be reod or hos just been reod. If the key-in 
has not yet been read, KEYl prompts the OC device with a "-" and queues a read request to the tame device. It 
then sets a flog indicating that key-in input is in process, and exits to the Control Task without clearing its run flag 
in K:CTST. 

The combination of the flogs mentioned forces the Control Task to skip KEYl but to continue cycling through its 
scon until the key-in input is complete. It then enters KEYl. 

When KEYl is entered after a key-in hos been read, it analyzes the input ond branches to the oppropriote processor 
in one of the key-in overlays. If the key-in is unrecognized, KEYl outputs the message 

HKEYERR 

ond repeats the attempt to read o key-in. , 



LmiI Module Control (Formorly "Foregrotind Looder") 

Lood Module Control consists of three monitor overlays: FGLl (Load Module Release), FCL2 (Load Module Run), 
and FGL3 (Load Module Loader). Monitor services that require a primary load module to be initiated or released 
set the appropriate status indicators in the LMI entry, set the flog for Load Module Control in K:CTST, and trigger 
the Control Task dispatcher interrupt. 

Load Module Control is entered in the FGLl overlay, which first searches the Load Module Inventory (LMI) for 
primary load modules to be released. If o releosoble load module is found, FGLl releases it. The System Tsk 
Inventory (STI) is searched for entries identifying tasks in the load module. If any are found, they are released, and 
the associated interrupts ore disarmed and set to MTW, 0. For clock-connected tasks, both the clock pulse and the 
corresponding count-equals-zero interrupts are treated. If the load module used PUBLIBs, their use counts ore 
decremented, and the PUBLIB LMI entry is released if the use count becomes zero. 

While seorching for releosoble primary load modules, FGLl also finds oil primary load modules that are waiting on 
memory in order to run ("run queued") and sets flogs indicating that their looding it to be attempted again. 

When oil load module releases hove been performed, FGLl colls FGL2. 

FGL2 searches the LMI for a primary load module entry flagged for looding. If the "run-queueing" option is not 
specified, the first loadable entry is selected. Otherwise, the loadable entry with the highest priority is chosen. 
(If there is none, FGL2 returns to the Control Task, clearing the Load Module Control flog from K:CTST. ) 

When an entry is found, the Job Program Table (JPT) for the job in which the load module will run is searched. If 
the task name from the LMI entry matches a task name in a JPT entry, the load module file name is provided by the 
JPT entry. If no such match is found, the task name is used as the file name. FGL2 calls FGL3 to load the load 
module. If FGl3 is successful, FGL2 sets up certain LMI entry values which me obtained from the load module 
header and allots Associative Erx^ueue Table (AET) spoce from the monitor's dynamic memory pool. The load mod- 
ule initialization sequerwe is executed. Normal completion posting is effected for the originating RUN or INIT 
request. ^ 

If FGL3 is unsuccessful at loading because the required memory was in use, FGL2 leaves the LMI entry for a later 
attempt at loading. If the load failed for another reason, the tables ore deleted, and the originating request is 
posted OS abnormal ly completed. 

FGL3 acquires dynamic memory for load module header input. The header is read, and it is determined whether the 
memory between the program bourxls is free of foreground programs. If it is not, the load terminates unsuccessfully. 
The root segments of the load module ore read into their execution locations. If any PUBLIB is required, the LMI is 



SMTched. If o PUBLIB is dread/ loaded, its use count is incremented. If the required i*UBLIB has no LMI entry, its 
header is read and its space requirement is determined. If the PUBLIB does not overlap an existing program or 
PUBLIB, the PUBLIB is looded end given on LMI entry. If memory space b not ovoildble, the loading of the original 
program load module is terminated unsuccessfully. ' 

Wlien the root segments qnd PUBLIBs for a load module ore all loaded, FGL3 returns successfully to FGL2. 



Btckgrmind ScqiMncing 

Boclcgrourtd sequencing is provided by two monitor overloys: Background Progrom Initiation (BKL1, formerly "Bock- 
ground Loader part 1") and Background Abort/Exit (ABEX). 

Background sequencing is begun by a "C" keyin received while the background is inactive. The key-in causes flogs 
to be set in K:CTST indicating that BKLl must run and the Job Gxitrol Processor (JCP) is to be loaded. 

There are three main paths through BKLl: one for initiating JCP, one for initiating a processor or user program, and 
one for completing the initiation process after Lood Module Control has loaded the background. BKLyl may also exit 
without doing anything, if it is entered without the indicator set for any of its three functions. In this cose, the 
flag in K:CTST for BKLl execution is cleared. At this point, background sequencing has terminated. 

When BKLl is called to initiate either JCP or another background program, the general process is to associate the 
task name "BKG" with the load module file name using a SETNAME CAL, and request task initiation with a no- 
woit INIT CAL. BKLl then exits to the Control Task to allow the task initiation to proceed in the background 
context. 

ASSIGNS are done as indicated in the ASSIGN table during task initiotion. 

The final path through BKLl is token after completion of the INIT service requested in either of the first two paths. 
Task initiation, on completing a bockgrourKl INIT request, sets the flag in K:CTST for BKLl execution. When BKLl 
is entered, it performs a CHECK on the INIT request. If an abnormal completion code is returned, flags are set to 
run ABEX to abort the background. BKLl notifies the operator and exits. If the completion is normal, BKLl then 
clears flags that block background execution and exits. Background con then run. 

When a service requests that the background task be terminated (e.g. , EXIT or ABORT CALs, trap processing abort), 
task termination is deferred. Instead, a flag is set in KKTTST indicating that ABEX must run, and another flog is set 
in K JCP indicating whether the temiinatbn is an exit or an abort. The Control Task dispatcher is then triggered. 

ABEX first determines what is to be run next in the background sequence on the basis of what was just run, and how 
it terminated. If a normal termination occurred, there are three alternatives: ff a program other than JCP was 
running, ABEX indicates that JCP will run next. If JCP was running, and a IFIN command was received, nothing 
is to follow. If JCP was running ond exited without IFIN, it wos the result of some variety of IRUN command, 
and the next program to run is indicated by o file area and name in K:BAREA and KrBFILE, respectively. ABEX 
indicates that a user program is to be loaded next. If the previous background program aborted, ABEX indicates 
that JCP will run next. Additionally, ABEX sends on abort notification to the OC and LL devices, and sets a flog 
which forces JCP to skip control cords until a I JOB or IFIN is encountered. 

If a postmortem dump is required, ABEX dispatches the background to the background dump routine, resets its own 
flog, and exits. When the dump is complete, on EXIT is executed, causing ABEX to be reentered. If there is no 
dump, or upon reentry after a dump, ABEX colls the TMLM monitor routine, which forces the background to execute 
termination. ABEX then exits, clearing its execution flog. '^ 

The background task then executes Tosk Termination, which closes files, waits out or stops I/O (the former in an 
EXIT, the latter in on ABORT), and releases table space. Termination ends by setting the K:CTST flag to run 
BKLl, and triggering the Control Task. 

When BKLl runs, as described eorlier, it initiates the next load module, or, if there is none, terminates bockground 
sequencing. 



CNtnlTMfc 

A Control Task dump b raquwtad b)f o DF or DM kmfln. Tli«r«^ir«d A a wpee ofB ot Meek Is obtairMd fromttM tystom 
dynamic spoe* pool, and initMlictd for tK* raqwirad oddran rana* to kt dumpad to lh« DO oplobol. Abo tpoeifiad 
it a post-prinf routine oddres, to be executed after the Dump routine prints each line. The EXjmp routine is then 
called. It returns after performing the required dump. The Gmtrol Task dump flog is then reset, vtd the control 
tsk scheduling loop is reentered. 

Hie post-print routine specified in the dump control block accomplishes two functions. 

1. It couses delay, followed by a retry if a device-manual error is returned from the print request. 

2. It enters the Control Task scheduling loop in order to allow other Control Task functnns to procede during 
the dump. (However, a DFor DM key-In will be rejected while a dump is executing.) 

Piriodic Scheduler 

The Periodic Scheduler is divided into two major monitor overlay sections and two small sections of ppnitor root- 
resident code. The overlay sections are the CAL processor otkI the Scheduling Processor. The resident sections are 
in the clock 5-second timing code and an end-action receiver for on INIT coll . 

The CAL processor builds a chain of linked tspace entries with a monitor root word, SC:UST, pointing to the oldest 
entry. These entries contain information required to create on appropriate INIT FPTos derived from the SCHED FPT. 
Upon entry, the CAL processor will create new TSPACE entries, delete entries if appropriate, set a bit in K<ITST, 
call CTRIG, and exit. 

The Scheduling Processor, when called by the Control Tosk, resets the scheduler bit In KtCTST, opens the file SCHED 
in area SP, and examines the chained TSPACE entries pointed to by SC:LIST. If such entries exist, the SCHEDFIL 
entries will be created or deleted as appropriate. As the data in each TSPACE entry is entered in a SCHEDFIL record, 
that TSPACE is reletsed and the chain pointer repositioned. 

A monitor root word, SC:INIT, may point to a previously scheduled INIT FPT in TSPACE. If so, a CHECK call is 
issued. If the INIT is complete, its TSPACE is released and the completion status is analyzed. Any error code is 
added to the scheduled tosk's SCHED record end appropriate messages are output if this is the first time such status 
has been encountered. Some error codes cause automatic deletion of the entry. 

If rto INIT's ore necessary, the Scheduling Processor examines the SCHEDFIL entries to see if the current time of day 
has exceeded the "next-time-to-run" value for a particular task, if a task is due to run, an INIT FPT is built in 
TSPACE and its address placed in SCtlNIT. The task's next-time-to-run value in SCHEDRL is incremented by its 
Interval value and the INIT coll is issued, with a 30-second timeout value to prevent blockage. 

The Scheduling Processor then searches the SCHEDFIL for the lowest value of "next-time-to-run", which is posted in 
a root block of three words headed by SC:YEAR. The Scheduling Processor exits after resetting the K:CTST bit. 

Logic in the 5-second count code of the CLOCK routine examines the three-word block SC:YEAR. If the current 
date/time has exceeded this value, the scheduler bit in K:CTST is set and CTRIG is coiled. 



3. I/O HANDLING METHODS 



Channel Concept 

A "channel" is defined as o data pafh, connecHng one or more devices to memory, only one of which may 
be transmitting data (to or from memory) at any given time. 

Thus, a magnetic tope controller connected to an MIOP is a channel but one connected to an SIOP Is not, since 
in this cose, the SIOP itself fits the definition. Other examples of ehonrwis are o cord reader on an MIOP, o 
keyboard/printer on on MIOP, or a disk controller on on MIOP. 

Input/output requests made on the system will be queued by channel to facilitate starting anew request on the chan- 
nel when the previous one has completed. The single exception to this rule is the "off-line" type of operation, 
such as the rewinding of magnetic tope or the arm movement of certain moving arm devices. For this type of opera- 
tion, on attempt is always mode to also start a data transfer operation to keep the channel busy if possible. 

Handling Devices 

TheCP-R system offers the capability of multiple-step operations by providing an interrupt-to-interrupt mode in 
addition to the standard single interrupt mode. 

Siagb hittmipt Mode 

On the lowest level the I/O handler is supplied a function code and device type. These ooordinotes ore used to 
access information from tables used by the handler to construct the list of command doublewords necessary to per- 
form the Indicated operation. Included will be a dummy (nonexecuted) command containing Information pertinent 
to device identification, recovery procedure, and foliow-on operations (see below). 

lnlBmtpt-to-lntamipt Mode 

A function code for a follow-on operation may be included in the dummy command. This causes the request to be 
reactivated and resume its normal position In the channel queue, but with a different operation to be perfonned. It 
will be started by the scheduler In the normal manner as if it were any other request tn the queue. The process may 
be cascaded indefinitely. 

Error recovery may be specified at any point within a series of follow-on operations and will be itself treated by the 
system as a type of foliow-on operation. It should be noted that follow-ons moy be intermixed with other operations 
on the same channel or even on the same device if the situation worrants. Thus, a series of recovery tries on a disk 
may be interrupted to honor higher priority requests, or on a tape for higher priority requests on other drives (but not 
on the sane drive). 



System Tables 

Information pertaining to requests, devices, and channels Is maintained in o series of parallel tables produced at 
System Generation time. A definition of these tables is presented here as reference for the remainder of this man- 
ual. The first entry (index=0) in each table Is reserved for special use by the system. See Chapter 10 for a more 
complete description of tftese tables. 



10 Q (Request bifonratkin) 

These tobies contain all infomnatlon necessary to perform on input/output operation on a device. When o request is 
made on the system, a queue entry Is built thot completely describes the request. The entry is then linked into the 
channel queue below other requests of either higher or the same priority. 



OCT (DiviM CMrtral) 

The Device Control Tables contain fixed information about each system device (unit level) vtd variable information 
about the operation currently being performed on the device. 

err (Chamnl hrfmntioii} 

These tables are used primarily to define the "head" and "tail" of entries that represent the queue for given channel 
at any time. A channel queue may have more than one entry active at any time (e.g., several tapes rewinding while 
artother entry reads or writes). 

Handler Tables 

Associated with each hoid^er are two tables: the Device Offset Table (DOT), and the Command List Pointer Table 
(CLST). 

DOT (Device Offset Table) 

The DOT table is a word table that begins on a doubleword boundary and contains: 

Byte A byte offcet from the beginning of the DOT table to the corresponding CLST entry. 

Byte 1 The time-out value, which is an integer that represents the number of five-*econd intervals that 

ore allowed to pass between the SIO end the I/O interrupt before the interrupt is considered 
lost. The value X'FF' indicates the operation should not be timed out. 

Byte 2 The retry function code. This b the function code to b« used for automatic error recovery. 

Byte 3 The continuation function code. This is the fonction code to be used for multiple interrupt re- 

quests. For example, a forward space record on magnetic tape can be performed n times by 
the basic I/O using the same queued request. Zero is used for no continuation. 

The fonction code is used as the index to reference this table. 
CLST (Commind List Pointer Table) 

The CLST table is a byte table containing the doubleword displacement from the beginning of the corresponding DOT 
table to the appropriate skeletal command doubleword. 

The general method for constructing the command doublewords for an \/0 request is to access the DOT table using 
the fonction code as index, end then find the skeletal command doubleword offset by using the contents of byte 
of the DOT entry as index to the CLST table. The skeletal command doubleword has the fenn 
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where 

Y = if the command is complete and to be used as is. This impi ies X is the oddress and Z is the byte count. 

Y = 1 if a seek address contained in IOQ12 is to be placed in the first word. In this case, the value of X 

is irrelevant. ■* 

Y = 2 if a regular data transfer is to be performed. In this case, the buffer address Is taken ftom IOQ8 and 

placed in the first ^rd, and the byte count is taken from IOQ9 and placed in the second word (byte I). 

Y = 3 if the request represents on I/O error message. This will cause the proper N/LI lyyndd to be chained 

to the pointed message. 

Y = 4 if a special handler fonction is to be performed. In this case, X is the address of the entry to 

the fonction. 



When the building of the oontmond doubleword it oompletad, a tesf is per femied for command-chaining (command 
doubleword flag field bits or 2 are on). If another oommond doubleword is to be choined, it is accomplished by 
occessing the next successive entry in the CLST table to find the offset of the skeletal command doublewoid that is 
to be used to create the next command doubleword. This command doubleword is constructed in the some fashion as 
the first, and the process may continue to the limits imposed by the size of the command list area allocated at 
SYSGEN. 



I/O Control System Overview 

The ]/0 Control System (IOCS) Is based around three major concepts. They ore device dependent variables, channel 
dependent variables, and request dependent variables. The device dependent voriobies include the device address, 
device state flogs, pointers to channel and request variables, pointers to pre- and post-handlers and storoge for 
hardware I/O status. The channels are software logicol channels defined by the SYSGEN process. Only one data 
transmission con occur on a channel at any given time (two in the cose of device pooling hardware). Channel vari- 
ables include the state of the channel (busy, held, etc. ) and queue head and toil pointers for the request queues. 
Request variables contain the information supplied by the IOCS user (file management, overlay monoger, utility 
routines, etc. ), indicating which \/0 operation is to be performed and how completion is to be signaled. Request 
variables include buffer address, b/te count, function code, maximum error retry count, end-octlon information, 
device pointer, priority, and others. There ore also entries for forwards and backwards pointers in^the channel 
queues. 

All device-dependent code is in device pre- and post-handlers that ore called before the I/O is started and after 
the l/O interrupt Is received, respectively. They ore dependent not only on the gross device type (i.e. , card reader 
or magnetic tape unit), but also on the exact model of device and controller. 



Figue 3 shows the overall organization of the IOCS. 



IntMlacss 

There ore only two program Interfaces into the IOCS. The Pirst is QUEUE which is called with the request param- 
eters in order to odd o request to the proper queue. It identifies the proper channel and adds the entry in priority 
position. The second is SERDEV (Service Device) which, while called with a device pointer, identifies the asso- 
ciated channel and checks it for a possible state change. 

The only Interface out of the IOCS is lOSCU. When any I/O is finally terminated, lOSCU colls REQCOM which 
signals the requestor based on the clean-up code and/or end-action control word supplied with the origirtal request. 

The IOCS interfaces ore described in further detail below, together with on I/O control sequence example for a 
simple cose. 

Figures 4 through 16 show the detailed control flow for the Individual IOCS routines and subroutines. 



Interfaces into the IOCS 



QUEUE. This subroutine is called by the monitor to enter an I/O request into the IOCS. It must be supplied with 
many parameters such as: 

• Byte address of the buffer 

e Byte count "* 

• Logical function code (read, write, rewind, etc. ) 
e Priority 

• Device ID 

• End-action control data 

• Maximum number of recovery attempts 
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Figure 3. Overall IOCS Organization 
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Interface out of thg IOCS 

lOSCU. This routine, when final completion of on ]/0 request occurs, con (ignal that completion In two wa/s: 

e A post word may be posted with the Actual Record Size (ARS) ond type-of-conpletion (TYC) code. 

• A monitor subroutine mo/ be entered with the ARS, type-of-completion code ortd user end-action informa- 
tion in registers. 



IOCS Control Sequence/Exomple 

The sequence followed when a single I/O request is made to IOCS for an idle channel is as follows: 

1. The monitor makes a call on QUEUE with the request poroneters. QUEUE places the request on the proper 
channel queue in the proper priority order. 

2. The monitor calls SERDEV to start the channel . 

3. SERDEV finds the channel idle and a startoble entry in the queue. It calls STARTIO for thot queue entry. 

4. STARTIO calls a device dependent pre-hondler which builds the proper channel program based on the queue 
entries. The ]/0 is started on the device and STARTIO returns through SERDEV to the monitor. 

5. While the I/O is proceeding, the task for which the V'O is being done may get blocked end be waiting 
for the I/O to complete. The monitor then makes successive colls on SERDEV while it is waiting for the 
task. If SERDEV finds the device busy, it checks the elapsed time for the V^O in progress to see if it is 
taking too long. 

(SERDEV is also called every 30 seconds for all devices. This mokes sure that the system does not hang up.) 

6. When the ]/0 operotion completes, or errors, an I/O interrupt is generated. lOINT is entered. 

7. lOINT collects oil the status about the I/O operation and marks the device as needing clean-up. lOINT 
then either calls SERDEV itself or stacks the device ID and triggers another interrupt level which will call 
SERDEV for all the device IDs in the stack. 

8. SERDEV finds the channel blocked by o device requiring clean-up and thus calls lOSCU. 

9. lOSCU colls a device-dependent post-handler which analyzes the status saved by lOINT. The post-handler 
returns to lOSCU with parameters indicating whot action to toke. The possibilities are: 

Output an operator message. 

Request an operator key-in. 

Follow-on to o new function. j, 

Decrement the retry count. 

Post some type of completion code. 

10. lOSCU then re-enters SERDEV in order to get the channel started qgain (step 3). 

11. This sequence goes on, round and round, until some type of I/O completion is posted. 
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Figure 4. ICXS: QUEUE Routine (cont. ) 
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Figure 7, IOCS: RIPOFF Subroutine 
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Figure 8. IOCS: STARTIO Routine 
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Figure 8. ICXS: STARTIO Routine (conh ) 
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Figure 9, IOCS: lOINT Routine 
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Figure 9. IOCS: lOINT RouHne (cont. ) 
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Figure 10. IOCS: lOALT Routine 
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Figure 11. IOCS: CLEANUP Routine 
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Figure n. IOCS; CLEANUP Routine (cont. ) 
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Figure 12. IOCS: REQCOM Routine 
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Figure 12. IOCS: REQCOM Routine (cont. ) 
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Figure 13. IOCS: ENDAC Subroutine 



27 



lOERRHR 
I/O ERR STATUS> 



BUMP DEVICE 
ERROR COUNT 



GET BUFFER PTR 
FROM lOQERR 



tJS 



TTKO- 



JtSUSXL 



GET fl SPACE 

BLOCK FOR 

BUFFER 



JOgROPg Y 



KO«- 



K 



IflERBCRl 'it 



PUT BUFFER PTR 
IN lOCERR, 

GATHER 
EVANESCENT 

STATUS 



BUMP LOST LOG 
COUNT 



a 



RETURN ON LIhK 



/return on link 



Figure U. IOCS: lOERROR Subroutine 



2B 



JL/O ERR LOGGINGS 




"iflJEJKtP 



STRR7 fl NEW 

I/O ERf?OR 

LOG 



mjsniL 



PECK UP BUFFER 
PTR FROM lOQERR, 
RND ZERO IDQERR 



P3S 



FILL IN FFXED 
1/0 LOO STATUS 



f RETURN ON L INK 



PUSHLO& 



Figure 15. IOCS: lOLOG SubrouHr>e 
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Figure 16. IOCS: PUSHLOG Subroutine 
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QUEUE 

Routine returns +1 if device it lOEX or down; +2 otherwise 

At entry: 

R2 ECB ID or zero 

R4 ]/0 Function code 

R5 Link 

R6 Number of retries 

R7 DCT index 

R8 CLEANUP Information Word 1 

R9 CLEANUP Information Word 2 

RIO t/O buffer address (byte address) 

Rll I/O length (in bytes) 

R12 Disk seek address or number of records to pass (mognetic tope) 

RI3 Priority 

Registers RO - R7 preserved; contents of R8 - R15 are lost 

CALLSD 

At entry: 



R1 


FPTcode 


R2 


DCB address 


R3 


FPT address 


R5 


Link 



Rl - R7 preserved; contents of RO, R8 - R15 are lost 

SEROEV 

At entry: 

Rl DCT Index 

R2 Link 

Contents of all registers ore lost 



MPOFF 




At entry: 




R2 


Tosk priority 


R3 


lOQ pointer for Q entry to be removed 


R5 


Link 



Contents of all registers are lost. 
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CTAIinO 

At entry: There is a stortoble request in R3. The device activity counter is set in R14 and interrupts ore enabled. 
The I/O handler preprocessor is called unless user command list is specified. Handler return is to 'lOSST'. 

Registers, after pre-handler return: 

RO Doubleword address of command list 

Rl Priority, CIT check mask, DC T index (8, 4, 20) 

R2 Flogs, SERDEV exit, CIT index (3, 10, 19) 

R3 Request lOQ index 

R4 Handler flags, subchannel allocation code (8, 24) 

RIO Device operation table ('DOT') for 'lOSST' 

R14 Device activity count for re-entrancy check 

R15 Link for service device 

CLEANUP/IOSCU 

Normal register usage: 

Rl Priority, DCT index (8, 24) 

R2 Flags, SERDEV exit, CIT Index (3, 10, 19) 

R3 Scratch, lOQ index (8, 24) 

Rl 1 Remaining byte count (RBC) from post-handler 

R12 Flags returned from post-handler: 

Bit 16 Retry sequence 

Bit 17 Follow-on sequence 

Bit 18 Inter-operative request 

Bit 19 Key-in pending (normal) ^ 

Bit 20 Key-in pending (special) 

Bit 21 Continue channel hold 

Bit 22 Force message print 

Byte 3 Type of completion 
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R13 Message Id be typed (0 if none) 

R14 Device activity count 

R15 Not used - reserved for future systems. 



REQCOM 




At entry 




R1 


DCT and priority 


R3 


lOQ pointer 


R5 


Link 


R11 


RBC 


R12 


TYC 



R13 - R15, RO - R4 preserved; contents of R5 - RI2 are lost 



i/0 Error Logging 

Optionolly, an I/O error-logging copabiilty is provided. Whenever on J/O error is indicated by the device 
post-handler (by requesting o retry), lOSCU gets space for on error-log record, saves all evanescent ]/0 status, 
and puts the space pointer in lOQERR. Subsequent retries use the some space again. 

^ In REQCOM, when the I/O completion is done, lOQERR is checked. If a log was started, the error-log record is 

( "— completed and the pointer is stacked for loter filing. Also, if on error completion code is indicated and no error- 

^ log record had been storted, i.e., no retries were done, one is started and treated as above. 

This assures that for any ]/0 request, no more than one error log will be generated. The error log will always in- 
dicate the status of the last error in a retry sequence. 

The error log records relating to l/O errors are as follows: 
e SIO failure 

• Device timeout 

• Unexpected interrupt 

• Device error 

• Secondary record for device sense data 

The formats for these error logging records are given in Chapter 4, "Error Logging". 

I/O Statistics 

Optionally, with error logging, ]/0 statistics ore maintained. These may be displayed using the ESUM key-in. 

The total number of SIOs issued for each device since system boot is kept in DCT'IO (word). The total number of 
]/0 errors, counted when I/O error-log status Is collected, for each device since system boot is kept in DCT* ERR 
(word). 

The number of Log records successfully filed since system boot is kept in GOODLOGS (word). The number of Log 
records lost, becouse of space or time overruns, since system boot is kept in LOSTLOGS. 
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Side Buffering 

Both input and output side-buffering ore optionoll/ available for certain unit record devices. These allow effective 
double-buffered \/0 for processors which do not themselves do double buffering. 

DCTSDBUF is a word entry for ail cevices which points to o post word followed by a buffer space for each side buf- 
fered device. 



Output Side Buffering 

Output side buffering is done for all line printer, cord punch ond teletype output except for PRINT and TYPE CALs. 
The WRITE CAL waits for previous \/0 to complete and the side buffer to be free. It then copies the users data into 
the side buffer. A request is made to output the side buffer. The coHer is posted with the completion code of the 
previous output and oil oppropriote posting and end-action done. 



Input Side Buffering 

Input side buffering is done only for the cord reader. If the side buffer is free and a 'wait' READ CAL is issued, o 
side buffer read is started. Then this or ony other READ CAL will wait for the side buffer read to complete. The 
input data will be copied into the user's buffer and posting/end-action will be done. If the record read is not a 
'I' or ':' cord ond the read was 'automatic', not binary, another side buffer read will be started before returning 
to the user. 



Virtual I/O Buffering 

When service calls are initiated in mapped tasks that involve I/O, the monitor subroutines, FMGETRAD and FM LOCK 
convert the virtual buffer address to a real buffer address by performing one of the following functions as defined by 
the data area attached to the I/O ECB: 

• Obtain a side buffer in CP-RTSPACE for unit record devices (i.e., CR, CP, LP, TY). If the request is a write 
operation, the user's data record is moved to the side buffer in TSPACE and is output from there. If the request 
is an input operation, the record is read into the buffer in TSPACE and moved to the user's buffer at the con- 
clusion of the I/O operation. 

• Set page locks If the user's buffer is contained within a single page or within contiguous reol pages. 

• Build a skeleton lOCD list of real buffer locations and sizes in CP-R TSPACE if the user's buffer is contained in 
two or more noncontiguous real pages, and set the pqge locks. The size and location of the lOCD list ore input 
to QUEUE in place of buffer size and location. 

The FMGETRAD routine obtains end initializes the data area which has one of the following formats: 

Fonnat 1 



WordO 






Length 


Data area address 



1 



78 



31 



Word 1 



IOD = l 





BUF 



78 



31 



34 



Word 2 



Word 3 



A 


.1 







31 




U 


-1 



31 



vvhere 

Word contains fhe size and word oddres of the CP-R TSPACE obtained for the I/O request. 

Word 1 lOD = 1 means that the I/O buffer is located in the TSPACE pointed to from word and the I/O 
request is a WRITE. The user's data record is moved Id the buffer in TSPACE before the QUEUE subroutine 
is called. 

BUF is the b/te address of the ]/0 buffer in TSPACE. 

Words 2 and 3 ore not used. 

Format 2 



WordO 



Length 



1 



7'8 



Data area address 



31 



Word 1 



IOD = 2 








BUF 1 





7 


8 


15 


16 




31 



(- 



Word 2 









UBUF 





15 


16 




31 



Word 3 0- 



TT 



where 

Word contains the sire and word address of the CP-R TSPACE obtained for the I/O request. 

Word 1 lOD = 2 means that the I/O is a READ request and the data record is to be read into a buffer in the 
TSPACE pointed to from word 0. The data record is moved to the user's virtual buffer address at CHECK time. 

BUF is the real byte address of the buffer in TSPACE that wilt be used for the READ request. 

Word 2 UBUF is the virtual byte address of the I/O buffer supplied by the user in the PPT or DCS. 

Word 3 is not used. 

Format 3 



WordO 



31 



35 



Word 1 



Word 2 



IOD = 3 


k (l<Ic<33) 


7'8 






31 


I 

N 





° 


Pk 





1 




15'l6 




31 



- I 



Woidn 





P2 




Pi 







15 16 




31 



where 

WordO 



is not used. 



Word 1 lOD = 3 means that the I/O request will use the specified number (K) of real pages thaf 'contain the 

user's buffer. 

Words 2 through n INP = if the real Pages (P.) have been locked; 1 if the pqges have not been locked. P[ 

ore the real pages that contain the user's I/O buffer. 



Format 4 



WordO 






Length 


Data area address 





1 7 


8 




31 



Word 1 



I0D = 4 


k (KkOS) 


7 


8 




31 



Word 2 



I 

N 





Pk 





1 15 


16 31 



Word n 



P2 


Pi 







15 


16 




31 



where 



WordO ISO pointer to the data area In TSPACE that contains the lOCD list. ^-* 

Word 1 lOD = 4 means that the I/O request will use the specified number (K) of real pages that contain the 
user's buffer and Word contains a pointer to the data area in TSPACE that contains the lOCD list. Note 
that lOD = 4 means that the buffer is in noncontiguous real pages. 



Words 2 through n are as shown in Foimat 3. 
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BEX 

Two forms of IO£X ore lupported by the IOCS. 
QiiMWil lOEX 



Queued lOEX allows lOEX requests to be odded to the queues just as any other request. They will be performed 
nice any other request, but will not invoice either the pre- or post-device handler. Both queued lOEX requests and 
nannal raaii<><cf« mav K<> inadf> an a device at ttitt tain<> tim<> 



— / — 1 / — — . . -_ |-- — 

normal requests may be made on a device at the some time 



Dedicatetf lOEX 

Dedicated lOEX requires that all I/O management for the channel must be done by the user himself. Thedevice must 
be dedicated either at SYSGEN or by a STOPIO call to lOEX, and no nonnal (queued) requests will be honored while 
it is dedicated. 

Disk Pack Track-by-Track Logic 

All disk pack requests ore initially attempted unchanged. If returning status indicates that either a cylinder crossing 
or a flawed track was encountered, the operation is retried with the data trcmsfer broken into operations not larger 
than one track. Flawed tracks then encountered will be processed using the alternate track address in the header. 
This requires that pocks be properly initialized with valid alternates in the headers. 

The trock-by-trock parsing is wholly contained in the disk handler and uses only the original lOQ entry. No \/0 
time or execution time overhead is used if flowed tracks and cylinder crossirtgs ore avoided. 

Disk Pack Seek Separation 

{ _ For all disk-pack operations, a separate seek order is issued without a data transfer. This takes advantage of two 

hardware features available on all disk packs. First, such seek operations do not tie up the channel and all disk packs 
may be seeking an6 therefore ami-moving at the some time. Second, the disk pock interrupts only when its arm 
motion is complete and when it is rotational ly positioned in the sector previous to the indicated seek address. 

This allows both arm-motion time as well as rotational -latency time to be overlapped with data transfers when disk- 
pock I/O traffic gets high. 

Disk Pack Arm-Position Queue Optimization 

Optionally, on arm-positioning optimizer is used to minimize aim positioning time on all disk packs. h4o rotationol- 
position optimization is intended or performed except that achieved on a multipock controller by ^rtue of multiseek 
operations which interrupt at a minimum rotational latency time. 

The optimizir«g algorithm is intended to minimize disk aim-movement time by orderirfg disk-^O-queue requests by 
am position. No account is taken of request priority or order of time of request. The only guarantee is that two or 
more requests with the same seek address will be run in FIFO order. 

The algorithm is as follows: At the end of any disk I/O operation, the current seek address is noted. The disk ^O 
queue is searched, in priority order, for the request which has the closest seek address in a forward -direction. 
Requests which hove seek addresses before the current position have their seek ackiress biased so as to be forward, 
beyond any normal forward position. A queue entry with the sane seek address is considered to be the forthest-oway 
seek address. This guarantees that oil requests will be eventually reached. 

The result of this algorithm is to guarantee service to oil requests. The ami motion tends to sweep from low to high 
aim position and then snap bock to a low position. The algorithm offers up to 25% improvement in the time required 
to service short, random seek requests. 
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This snaf>-back or cyclic sweeping was chosen over on 'elevator' algorithm; i.e., two-way sweep, to minimize 
wait-time dispersion. 

The code required for implementation of this algorithm is wholly contained in one piece at the logical end of thedisk 
post-hardier. It is 38 words long and is conditional on the assembly switch 'DISQING. 

Disk Angular-Position Queue Oirtimization 

Optionally, an angular-position queue optimizer is used to select the "best" d!sk-l/0-queue entry to run. This is 
done to minimize rotational latency time without precluding priority queuing considerations. 

At the end of any disk I/O option, the current rotational position is computed from the I/O start seek address and 
the byte count transferred. A tolerance is allowed for I/O-interrupt processing time, on the order of 1 ms. 

The disk I/O queue is searched, in priority order, to detemnlne if any lower priority request can be rijn entirely 
(including interrupt processing time) ahead of the normally selected high-priority request. As each one is found, 
it becomes the selected high-priority request. When the end of the queue is reached or when a request is elected 
which starts in the next available rotational position, I/O system flags are set to cause that request to be the next 
one started. This algorithm offers up to a 50% improvement in the time required to service many short, random seek, 
requests. ' 

The code required for implementation of this algorithm is wholly contained in one piece at the logical end of the disk 
post-handler. It is 73 words long and is conditional on the assembly switch 'RADQING. 



Deferred SIO 

In dual -redundont multi-processor system, where a pool of devices (i.e., disk packs or magnetic tape units), are 
shared, the I/O system allows limited concurrent use of these devices. If both processors try to use the sane device, 
one will receive busy status from the device end the other will obtain use of the device. The I/O system, upon re- 
ceiving the busy status, defen the SIO attempt for 5 seconds and then tries again. 

In certain cases, such as on interruption between a seek and a read or write on a disk pock, recoverabi e errors maybe 
reported by the hardware. The user of the deferred SIO capability should allowareosonablenumberof retry attempts 
on his I/O requests. 



Logical Devices 

Provision is mode in SYSGEN to include logical devices. These ore pseudo-devices whi^ form a logical connectk>n 
between Read and Write or Write File Aterk I/O requests. They ore SYSGENed as if they were real devices (includ- 
ing fictitious device addresses), and may be used like any other I/O device. 

Read and Write requests ore entered into the I/O queue normally. When the logical device finds a match between a 
Read and a Write request, the data transfer is made directly from the write buffer to the read buffer. Requests ore 
har>dled on a first in, first out basis within priority and otherwise in order by priority. Actual record sizes are posted 
as usual. Write File AAark requests result in on EOF TYC oruJ abnormal code being posted for the Read request. 

Logical devices supply the capability of communicating between tosks via normal Read/Write services. It also pro- 
vides the capability of intercepting or monitoring a data stream. 

The user should be aware that I/O buffers are locked in main memory during any I/O operation, and that where very 
large buffers or very mcry outstanding I/O requests are used, this may result in a deadlock. This is particulorly true 
of logical device requests which must be satisfied by another I/O request and not by independent action by a per- 
ipheral. Similarly, I/O queue entries may be tied up and result in a deadlock condition. 

Logical device requests are not subject to I/O timeouts. The user must supplyatime interval parameter on the service 
request (P13). This will cancel the request after the specified time period and post on FPT error code of X'67'. 
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User I/O Services 

OPEN This function opens o DCB rftot results in opening a disk file when the DCB is assigned to o disk file. If 

the Error and/or Abnormal address is given in the function coll, the addresses ore set In the DCB. 

Opening a disk file involves constructing on RFT (RAD File Table) entry for the file. If the File is a permanent file, 
the area file director/ is searched to locate the parameters that describe the file. These parameters ore formatted 
artd entered into the RFT. If the "file" is on entire area, the parameters used to construct the RFT entr/ ore taken 
from the Master Dictionar/. If the file is a background tonporar/ file, the RFT entry must already have been con- 
structed by the JCP. If the file is on a disk pack and a DED DPndd, R key-in is in effect, an abnormal code (X'2F') 
is posted in the DCB. 

Blocking buffers or user-provided buffers are used For the directory search. Background requests use background buf- 
fers; foreground requests use foreground buffers. 

CLOSE This function closes a DCB that may result in the closing of a disk file. Closing a permanent disk file 

involves updating the file directory if any of the directory porometers have been changed by accessing the file. 
Among such parameters that may change ore file size (adding records to the file), record size (by Device File Mode 
call), etc. 

If the file is extensible, all extents numerically higher than the one currently positioned in ore deleted. 

Disk files are closed only when (1) the DCB being closed is the last open DCB assigned to the file and (2) no opera- 
tional labels are assigned to the file. Blocking buffers or user-provided buffers are used for the directory update as 
in the case of OPEN. If the file being closed is on a disk pack, a DED DPndd, R key-in is in effect, and this is the 
last open file on device ndd, the message I JDPndd IDLE will be output. 

REAO/NRITE A READ or WRITE function call will cause the addressed DCB to be opened if it is closed. READ/ 

WRITE checks for legitimacy of the request by determining whether or not the following condittons ore present: 

1. For type 1 requests, the DCB is not busy with another type 1 request. 

2. The assigned device or op label exists. 

3. The user buffer lies in a legitimate region of core memory. 

4. The type of operation (input or output) is legitimate on the device (e.g., output to the cerd reader is not 
allowed. 

For device I/O, READ/AVRITE builds a partial QUEUE colling sequence and calls a device routine that performs 
device-dependent testing such as: 

1. yvtode flag in IXIB (BIN, AUTO) for devices that recognize it. 

2. Testing byte count against physical record size for fixed-record-length devices. 

3. Testing for PACK bit in DCB for 7T magnetic tope. 

4. Testing for VFC for line printer or keyboard/printer. 

The device routines set up the proper function code in the QUEUE calling sequence and transfer control to a routine 
called GETNRT. GETNRT completes the QUEUE calling sequence by obtaining the number of retries, setting up the 
user's end-action and building on ECB. GETNRT then colls QUEUE. When the request has been queued, control is 
transferred to the TESTWAIT routine which checks the wait indicator for the request. No-wait requejfs transfer to 
CALEXrr. Otherwise, requests transfer control to the CHECK logic at FMCKl vAich waits for the I/O to complete. 

For disk file I/O, READ/WRITE colls the routine labeled RWFILE. RWFILE tests for write protection vtelation on 
write requests, end-of-file on sequentlol read requests, and end-of-tope on all requests. The different types of re- 
quests are handled as follows. 

Direct Access. The disk seek address is computed from the granule number provided in the FPT, and a QUEUE coll- 
ing sequence is constructed that will queue up the request. Control then transfers to the CHECK logic. 
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Device Access. When the DCB cssociated with the READ/WRITE call it CBsigned directly to a disk, the disk device 
routine is entered. The disk device routine computes the disk seek address From the sector number provided in the 
FFT (Key paroneter), obtains the proper function code and completes the queue calling sequence by branching to 
GETNRT. 

Sequential Access (Unblocked). The disk seek address is computed from the file position parcvnefers and a QUEUE 
coll is mode. Control then transfers to the CHECK logic. 

Sequential Access (Blocked). The next record is moved from/to the blocking buffer and blocks are reoc^written as 
required to allow the record transfer. For example, the first read request results in the first block being read and 
the first record in the block being deblocked into the user buffer. Successive read requests will not require actual 
input from the disk until oil records in the blocking buffer have been read. The blocks ore always 256 words long 
and contain on integral number of fixed length records; that is, no record crosses a block boundary. 

Sequential Access (Compressed Files). Compressed files are treated in a manner similar Jo blocked files with the 
following exceptnns: 

1 . The records are compressed/decompressed on the way to/from the blocking buffer. 

2. The buffer does not contain a fixed number of records since the records are no longer of Fixecj length after 
compression. However, no compressed record crosses a block boundary. -' 

To compress a record, the fallowing EBCDIC codes are used: 
X'FA' End-of-Block code 
X'FB' End-of-Record code 

X'FC Blank Flag code 
X'FD' Control character code 

All occurrences of two or more successive blank codes (X'40') are replaced by a Blank Flag code (X'FC) followed 
by a byte containing the length of the blank string. An End-of-Record code fellows each record, and an End-of- 
Block code appears after the lost record in a block. 

The control character code (X'FD') allows a record to be compressed and decompressed without restrictions on the 
individual characten within the record. In the blocking routine, when a data character is detected which is a con- 
trol character (i.e., X'FA', X'FB', X'FC, X'FD'), the data charocter Is preceded by an X'FD' character. True 
control characters ore not preceded by an X'FD' character. The deblocking routine removes X'FD' characters from 
the data record. 

When compressing records into the blocking buffer, a length of the compressed record is first computed and a test 
performed to determine whether the record will fit in the block. If so. It is placed in the buffer. If not, on End- 
of-Bbck code is written in the buffer and the buffer is written to the file. 

If the disk file is extensible, special handling is done as follows: 

Sequential Access Write. The write routiites for unblocked, blocked and compressed format files automatically allo- 
cate an extension file when an end-of-file condition is detected. The appropriate RFT entries are updated to reflect 
any characteristics which may be different from those of the previous extent and then the write continues using the 
new file extent. 

Due to repositionir>g a file, it is possible to detect an end-of-file on en extentand find that the nexfVxtent already 
exists. When this happens, the procedure is the some as outlined above except that the previously allocated extent 
is used. 

Sequential Access Read. When on EOD is detected in the READ routines for unblocked, blocked and compressed 
fermot files, the file directory is searched for the next extent in sequence. When it is found the RFT is updated to 
reflect any characteristics which may be different from those of the previous extent ond the READ continues using 
the new extent. 
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Direct Accan Wrife. Oiract ocean fil« outomarically aictend cb daserfbad for Mquanfiol ocean filas. In addition, 
writing raeordt which ore loiger thai ona granule is parmittad. In order to ocoomplidi this, the direct access write 
routine con 

a Aflocote one extent laige enough for the record if the file wob or!ginall/af lotted without the "fix" option. 

a Allocate two or more extents if the record will not fit in one extent and the file was original!/ allotted 
with the "fix" option specified. The record will be written in two or more sections if it is too large to be 
contained within a single extent. If the request is with no-wait, on!/ the lost portion of the record will be 
written without wait. Extents between the first and lost extent will appear to have been written even If 
they have not been in order to simulate the characteristics of nonextensible files. 

Direct Access Reod. Automatic switching to the next extent will occur lor direct access files as described lor se- 
quential access files. In addition, the direct access read routine con read more than one granule even if the record 
crosses two or more extents. This is accomplished by breaking up the read into sections where each section is equal 
to or smaller than the extent size. If the READ request is with no-wait, only the lost section is reod without wait. 

At the conclusion of the file access, the status is pasted in the user DCB or FPT ond control is transferred to the 
CHECK logic. 

PRINT This function builds the QUEUE colling sequence to perform the output on LL. After colling QUEUE, the 
routine either waits for completion, if wait was requested in the system call, or returns control to the user. 

TYPE This function builds the QUEUE calling sequence by using code contained in the PRINT function. As in 
PRINT, o wait or return is performed as requested by the user. 

OFM This function sets the MOD and PACK indicator in the addressed DCB to values given in the system coll. 

If the DCB is assigned to a disk file, the record size (RFT5), the organization (IVT7), onc^^or the granule size (RFT4) 
ore set if requested by the user. The corresponding parameters on the file directory ore updated when the file is 
closed. 

DVF This function sets the DVF bit in the addressed DCB to the value (0 or 1 ) specified by the user. 

DRC This function sets the DRC bit in the oddressed DCB to the value (0 or 1) speciFied by the user. 

DEVICE (Set Device/File/Oplb Index. ) This function assigns a DCB to the specified device or file. The assign- 
ment is accomplished by setting one or more of the following parameters in the addressed DCB: A$N, DEVF, TYPE, 
DEV/OPLB/RFILE, or disk file name. 

DEVICE (Get Device/File/Oplb Name.) This function returns requested information regarding the assignment 

of o DCB. The information is in EBCDIC form. The request is fulfilled when it is consistent with the actual assign- 
ment of the DCB. Otherwise, a word, or words, of zero will be substituted for the EBCDIC informotion. 

CORRES This function determines if the two specified DCBs hove corresponding assignments. If the assignments 

ore the same, upon return to the user, register 8 will contain a value of 1. Otherwise, register 8 will contain a 
value of 0. 

REWIND This function rewinds magnetic tapes and disk files. No action is token if the addressed DCB is as- 

signed to any other type of device. 

Mognetic tapes are rewound by building a QUEUE calling sequence with the Rewind function code and calling 
QUEUE. 

Disk files ore rewound by zeroing the file position (RFTII), current record number (RFT12), blocking buffer position 
(RFTIO), and blocking buffer control vwrd address (RFT17) and using fob (RFT14) parameters. Extensible files ere 
positioned at the first record of extent 0. 
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■EOF This function writes an "•nd-of-file" on paper tape punch, card punch, magnetic tope, and disk files. - 
A request addressing a DCB assigned to some ofher type of device results in no action. 

An "end-of-file" is written on paper tope by calling QUEUE with a recjuest to write an EBCDIC MEOD' record. 

An "end-of-file" is written on a card by calling QUEUE with a request to write an EBCDIC 'lEOD' record. ~ 

An "end-of-file" is written on magnetic tape by calling QUEUE with a request to write a tape mark. 

An "end-of-file" on a disk file is "written" by copying the current record number minus 1 (RFT12) to the file size 
(RFT6) end setting on indlcotor so that the file directory will be updated when the file is closed. 

PREC This function positions magnetic tapes and disk files by moving some specified number of records either 
backward or forward. It does not affect other devices. Positioning is performed as follows: 

1. A magnetic tape QUEUE call is constructed that specifies through the function code the direction of the 
motion, and through the "seek-address" parameter the number of records to move. The basic I/O system 
then moves the tope. 

2. The new position within the file of an unblocked disk file is computed as a function of the record size and 
the sector size. File position (RFT11) and current record number (RFT12) parameters ore set to indicate 
the new position. 

3. The new position of a blocked disk file is computed as o function of the current record number, record size, 
block size, current blocking buffer position, current file position, and disk sector size. The blocking buf- 
fer position (RFTIO), file position (RFTl 1), and current record number (RFT12) ore set to indicate the new 
position. 

4. The new current record number of a compressed disk file is computed and subroutine PCFIL is called. This 
subroutine positions a compressed disk file at the specified record by counting records from the beginning 

of the file until the desired position is fourxJ. PCFIL sets the blocking buffer position (RFTIO), file position ^ ] 
(RFT11), and current record number (RFT12) parameters to indicate the new position. 

PFILE This function positions magnetic tape and disk files at the beginning or end of files. It does not affect 
other devices. Positioning is performed as follows: 

Mognetic Tape. A QUEUE coll is constructed with function code to "space file" either backwards or forwards. This 
results in the tape being positioned past the tope mark in the specified direction. If a skip was not requested, the 
tope is positioned on the other side (neor side) of the tape mark through a QUEUE call for a position one record 
opposite in direction to the space file. 

Disk File Bockword. A rewind is done (see description for REWIND), 

Disk File Forword. 

Unblocked Disk File. Current file position is computed as a function of the file size, the record size, ond the 
disk sector size. The cunent file position (RFTll) and the current record number (RFTl 2) are set to indicate the 
new position. 

Blocked Disk File. Current file position (RFTll) and the Blocking Buffer Position (RFTIO) ore computed as a 
function of the file size, record size, block size, and disk sector size. These parameters and the current record 
number (RFT12) are set to indicate the new position. "* 

Compressed Disk File. Subroutine PCFIL is called with file size plus one as the record nun^er. This subroutine 
positions the file at the start of the specified record. 



Extensible disk files ore positk>ned as described above within the last extent. 
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ALLOT This fiincHon dbfinas a Rle in a pmmanmnt disk area. The input porcRnetars or* ut«d Id feim a new file 

directory antiy. 

The directory of the specified area is searched to insure that the file is not a duplicate. If it is not a duplicate, it 
is allotted as a new file. The logical flow of the allot algorithm is shown in Figure 17. In general, new files are 
allocated the next free space in the area if there is room for the entry in the last directory sector. When the last 
directory sector is filled, deleted file space is reused, if possible, before a new directory sector is created. 

When a deleted entry is reused, the entry having the smallest size large enough for the new file is used. Disk space 
Is lost if the deleted file oontaind more space than the new entry requires. This space and the space held by other 
deleted files can be reclaimed by executing a RAOEDIT :SQUEEZE command. 

The number of sectors to allocate for a file is calculated using the formulas 



c (£fi.. 



U = ((RSIZ^s)-*t)*FSIZE 



256 
s 



where 

r = 1 if remainder / 0, and if remainder = 0. 
s equal disk sector size in words. 

DELETE This function deletes a file in the specified permanent disk area. The input file name is used to search 
the file directory for the entry to be deleted. When the entry has been located, the first two words of the file 
directory entry are zeroed out. The BOT and EOT remain unoltored. If the file is extensible each extent is deleted 
OS described ahov* starting with the last extent end proceeding to the first extent (extent 0). The space formerly 
allocated by the entry becomes unused until either a RADEDU rSQUEEZE commend is executed, or an ALLOT com- 
mand or call is executed with insufficient space at the end of the specified area. Space is then allocated by using a 
deleted entry. 

TRUNCATE This function uses the specified area and file name to search the file directory for the entry to be 

truncated. The actual size of the file is calculated and the EOT of the file directory entry is updated accordingly. 

The actual file size for blocked and unblocked files is determined by using the FSIZE end RSIZE of an entry; for com- 
pressed files, an RFT entry (RFTll) containing the current record number is used. The space formerly allocated be- 
tween the EOT of an entry and the BOT of the next entry becomes lost and is notavailable until a RAOEDIT :SQUEEZE 
command is executed. 

If the file is extensible, the last extent is determined by a directory search and when located, it is truncated as 
described for nonextensible files. 
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Add new enhy to last 
directory sector 



Allocate file: 
BOT— first free sector; 
EOT— BOT plus number 
of sectors required; fint 
free sector — EOT + 1 . 





Create a new empty 
directory sector af first 
free sector, increment 
first free sector. 




\ 


1 




Mork old lost directory 
sector OS linked to new 
sector 









Figure 17. Logical Flow of ALLOT 
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4. ERROR LOGGING 



The detecfion of a system, device, or softMrare error will cause CP-R to acquire infonnation about the error, generate 
a log record, post the log record, ar>d perform lome form of recovery. Upon findirtg a stacked error-log record 
pointer, the Q>ntrol Task will coll the LOG overlay to file the log. 

The LOG overlay unstacks the log record and writes it to the ER oplobel in 16-word records. Normally, the ER op- 
label should be directed to a file in the SParea named ERRFILE with a record size of 16 words and blocked format. 
However, the ER oplobel can also be directed to a cord or tape device. 

It should be noted that if ERRRLE does exist in the SP area, the ER oplobel will be connected to if by default at sys- 
tem boot time. 



Error Log Record Formats 

The following error logs can be generated by CP-R: 

Code Code 

11 SIO Failure 

12 Device Timeout 

13 Unexpected Interrupt 

15 Device Error 

16 Secondary Record for Device Sense Data 

17 Hardware Error 

18 System Stortup 

19 Watchdog Timer 
ID Instruction Exception 
21 Configuration Record 

The formats for these error log records ore given below consecutively 
510 FAILURE 



22 


System Identification 


23 


Time Stamp 


27 


Operator Message 


28 


I/O Activity Count 


30 


PFl Primary Record 


31 


MFI Primary Record 


32 


FVocessor Poll Record 


41 


550 Processor Configuration 


42 


550 Memory Parity Secondary Record 


43 


Memory Poll Record 



X'lr 


Count = 6 


Model Number 


Milliseconds Since Midnight 


SIO Status 


VO Address 


MFI if 
Z 6 or 2:7 


SIO 
CC 


TDV 
CC 


^M 


Subchannel 
Status 




TDV Current 
Command DA 


TDV Status 


Bytes Remaining 



The SIO Ibilure is emitted when the 
following SIO CC are returned: 



OaMODX 



OlOx 
lOOx 
llOx 



DCT21,DCT1 
-,DCT19,Da20 

Dai3 



The I/O sequence is SIO, TDV. 



45 



DEVICE TIMEOUT 




X'12' 



Count = D 



Model Number 



Milliseconds Since Midnight 



HIO Status 



Subchannel 
Status 



HIO 
CO 



1 



\/0 Address 



TDV 
CC 



TIO 
CC 



TDV Current 
Command DA 



TDV Status 



B/tes Remaining 



Current Commond Doubleword 



TIO Status 



Retry 
Request 



Retries 
Remaining 



I/O Count 




Seek Address 



DCTMODX 



Dai2 



-, OCT 1 9, Da20, DCT2aA 



Dai3 



DCT21, IOQ10, lOQll 



Da25 



IOQ12 



UNEXPECTED INTERRUPT 



X'13' 


Count =4 


Model Number 
(0 if unknown) 


Milliseconds Since Mdnight 


AIO Status 


]/0 Address 


^S 


AIO 
CC 


^^H 



OaMODX 



DCT12 



-,Dai9,-,- 
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DEVICE ERROR 



(- 




X'15' 



Coynt = D 



Model Number 



Milliseconds Since Midnight 



AIO Stotus 



I/O Address 



TDV 

cc 



TIO 
CC 



TDV Current 
Command DA 



TDV Status 



Bytes Remaining 



Current Command Doubleword 



TIO Status 



Retry 
Request 



Retries 
Remaining 



p'O Count 




Seek Address 



DaMODX 



Dai 2 



-, DCT19, Da20, Da20A 



Dai3 



Da21, 1OQ10, lOQll 



Da25 



IOQ12 



SECONDARY RECORD FOR DEVICE SENSE DATA 



X'16' 



Count as 
Needed 



I/O Address 



Milliseconds Since Midnight 



Sense 
(Up Id 16 bytes) 



Note; The I/O address links the 

secondary record to the cor- 
responding device error entry. 



SYSTEM STARTUP 



7 8 1516 23 24 31 


X-IS' 


Count = 4 


Startup Type 
= 3 


Recovery 
Count = 


Milliseconds Since Midnight 


Year - 1900 


Julian Day 


^^^^^^^^^^ 



HARDWARE ERROR 




78 



1516 



23 24 



Code 



Count=10 



31 



Trap CC 



Milliseconds Since Midnight 



PSD 



Vhrd 1 



PSD 



Word 2 



(reserved) 



(reserved) 



Real Address of Trapped hstruction 



Trapped frtstruction 




Generated by trap 4C. 



WATCHDOG TIMER 



7 8 1516 23 24 31 


Code 


Count=10 





TrapCC 


Milliseconds Since Midnight 


PSD Word 1 


PSD Word 2 


(reserved) 


(reserved) 


Real Address of Trapped hstruction 


Trapped Instruction 


^^^^^^^^^ 



Generated by Trap 46. 
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INSTRUCTION EXCEPTION 



7 8 15 16 23 24 31 


Code 


Count = 10 


/^ . , A 


TnipCC 




Milliseconds Since Midnight 


PSD Word 1 


PSD Word 2 


(reserved) 


(reserved) 


Real Address of Trapped Instruction 


Trapped Instruction 


^^^^^^^^^^ 



Generated by Trap 4D 



CONFIGURATION RECORD 



Entered at system STARTUP 




Milliseconds Since Midnight 







One pair of words per device in DCT 
order; multiple records may occur 
(maximum five devices per record). 



SYSTEM IDENTIFICATION 



Recorded at system STARTUP 



X'22' 



Count = 5 



Core Size in 
8K Word 
Blocks 



Relative 

Time 

Resolution 



Milliseconds Since Midnight 



System Version Flags 



Site Identification 



Relative Time Resolution is expressed 
as a volue of n such that actual rela- 
tive time resolution = 2" msec. The 
value of n for the most likely resolu- 
tions are 

n = when the timing space«is 

supplied by a frequency > 1 KHZ 



n= 1 



500 HZ 



n = 4 60 HZ 
ForCP-R, n= 1. 
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Syttwn, Vf»ion, Flogs 



The format of system, version, flogs artd site identification ts operating system specific. For the CP-R system, version 
and flogs ore formatted at location X'2B'. 



2B 



Monttor 




1516 



31 



Version 



Parameters 



Location 2B contains three items: 

1. Monitor - This field contains the code number of the monitor. The codes are as follows: 
Code Monitor 






None or indeterminate 


1 


BCM 


2 


RBM 


3 


RBM-2 


4 


BPM 


5 


BTM/BPM 


6 


UTS 


7 


CP-V 


8 


CP-R 


9-F 


Reserved for future use 



2. Version - This is the version code of the monitor and Is coded to correspond to the common designation for 
versions. The alphabetic count of the version designation is the high-order part of the code and the version 
number is the low-order port. For example, AOO is coded X'10' and D02 is coded X'42'. 

3. Parameters - The bits in this field are used to indicate suboptions of the monitor. 



Bit 


Meaning if Set 




31 


Symbiont routines included. 


29 


Real-time routines i 


ncluded. 


28 


Unused. 




27 


Reserved. 




26 


Reserved. 




24-25 


Field defining CPU. 






Bit 24 Bit 25 


Meaning 




1 


Sigma 5-7 




1 


Sigma 9 




1 1 


Xerox 550 
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TIME STAMP 



This record enfared once each hour on thie 
hour. 



X'23' 


G>unt = 3 


^^^^ 


Milliseconds Since Midnight 


Year - 1900 


Julian Day 



Binary integers 



OPERATOR MESSAGE 




Milliseconds Since Midnight 



TEXTC 
Count 



1 



TEXTC Mesnge 
Max 5ixe = 56 choroetws (CP-R) 



-u--^ 



i 



A facility is provided to in{|^t messages 
from the computer operator (or diagnostic 
program) into the error log. The operator 
may enter these messages from the operator 
console via the ERRSEND key-in. 



I/O ACTIVITY COUNT 



28 




DCT Index 
of 
rst Device 



Reiotiva Time 



I/O Address, 




l/OCountf 



I/O Count2 



DCTbidex 




t/O Addressj ^^^^ "^^ ^***^ 



Recorded once per hour ond at recovery. 
Maximum of 5 entries per record. Counts 
are reset to zero at Boot. 
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PFI PRlAr^ARY RECORD 



X'30' 



Count=2 




Milliseconds Since Midnight 



MFI PRIMARY RECORD 




PROCESSOR POLL RECORD 



X'32' 


Count = 3 




^ 


Milliseconds Since Midnight 


^ 


Unit 
Address 


Poll 
CC 


Unit 
Type 


Poll Status 



1 2 



78 1112 1516 



One record produced per nonzero pol 
status received. 






550 PROCESSOR CONFIGURATION 




Ralative Time 



Type Code ^ ^^ 



l2T3 



3 
UN 



POLR Results 



One entry for each unit in 
the cluster (maxlmuin 8). 



f 



One record per cluster defined in SYSGEN. 

CL = cluster ' 
UN = unit ' 
TYPE = unit type 



Type Code 

1 
2 
3 
4 

7 



Unit Nome 

CPU 

MI 

PI 

MIOP 
SU 



550 MEMORY PARITY SECONDARY RECORD 
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Count =4 


^^1 


W 


Relative Time 


Memory Status Word 


Memory Status Word 1 
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MEMORY POLL RECORD 




Milliseconds Since Midnighf 



Memory Stahis Word 



Memory Stafus Word 1 



Memory Shitus Word 2 



(,- 
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5. JOB CONTROL PROCESSOR 



Overview 

The Job Control Processor (JCP) is assembled as o Relocatable Object Module (ROM) and !s loaded at SYSGEN time 
by the SYSLOAD phase of SYSGEN. The JCP is absolutized to execute at the start of background ond is loaded 
into the JCP file on the disk. The JCP is loaded from disk for execution by the Background Loader upon the initial 
"C" key-in; and thereafter, is loaded following the terminotion of execution of each processor or user program in 
background memory. 

The JCP executes with special privileges since it runs in Master Mode with a skeleton key. Master Mode rather than 
Slave Mode is essential to the JCP since, at appropriate times, it executes a Write Direct instruction to trigger the 
CP-R Control Task. A skeleton key instead of the bockground key is also essential to the JCP since it sets flags for 
itself and the Monitor in the resident Monitor portion of memory. Bit zero of system cell K:JCP1 is set to 1 to inform 
the Monitor that the JCP is executing. 

The JCP controls the execution of background jobs by reading and interpreting control commands. All cords read 
from the "C" device that contain an exclomation mark in column one (except for on lEOD command), pre defined 
as JCP control commands. The I/O portion of the Monitor will not allow any background program except the JCP 
to read a JCP control command. The JCP runs until a command is read that requires the execution of a processor 
or user program, or until a tPIN command is encountered. 

The JCP presently requires a minimum of about 4K of core to execute, which means that the smallest possible core 
space allocated to the background must be at least 4K. 

The flowchart illustrated in Figures 18-21 depict the overall flow of the JCP, and Figures 22 through 39 illustrate 
the JCP commands. The labels used in the flowcharts correspond to the labels in the program listing. 



ASSIGN Command Processing 

The lASSlGN commarxJs ore read from the "C" device by the JCP, and are primarily used to define or change the 
l/O devices used by o program. The lASSlGN command con also be used to change parameters in a DCB. Since 
all I ASSIGN commonds must be input prior to the RUN or Name command (where Name is the name of a processor 
or user program file in the SP oreo) to which they apply, the information from each lASSIGN command is saved in 
core by the JCP. The JCP builds an ASSIGN table containing the information from each lASSIGN command. This 
table consists of ten words for each lASSIGN, plus one word specifying the number of ten-word entries. The table 
remains in a job-reserved page and is passed to the Background Loader. After the Background Loader initiates the 
program, it makes the appropriate changes to the program's DCBs from the information in the ASSIGN table. The 
ASSIGN table can then be destroyed as the program executes; therefore, lASSIGN commands take effect only for a 
job step and not an entire job. The ASSIGN table has the format shown in Table 1. 
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0. 







Gef Master mode, 
unprotected. 



Set prompt for type 
writer input. 




Get a job-reserved 
page. Initialize for 
ASSIGN table and 
Control Command 
buffer. 



Purge all BT files 
whicfi are not SAVEd. 




no 



Output message: 
SCHING FOR JOB 
COMND. 






FigurelB. Initialize XIP 



55 




r A03B j- 



Read C without wait. 




Check the C Read 
without wait. 



busy >- — >. 

_re_tum^^3Q\ 



SCAN 



^etfint field ("!'> 
\ required) 



CAN error / \ 
4 A05 J 






Qincel COC key-in 
if in effect. 




Kind? 


X^yes 






no 




Process command. 
















-<» 




Treat as processor 


1 


1 






name. 









/ A03 j 



Figure 19. Read and Process JCP Commands 
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2-iecond STIMER 
without wait. 



WAITANY. 




Delete STIMER 
request. 



( A03CJ 



Delete Read C 
request. 







Figure 20. Wait for JCP GMnmand 
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Taos V 




A08B 



(aosaV 








Log current command 



i 



Selecf error message 



Log error message 



Attended 



yes 



Identify error to op- 
erator then WAIT 



Change C to OC 



/a03 J 



Log current command 



it 

( A03 j 




1 



Set flag: skip to 
next job 



Output message: 

SCHING FOR JOB 
COMMAND 



— VaosJ 




Figure 21 . Process JCP Command Errors 
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^Clean up job and 
task resources. 



"m 



Clear PMD 
requests . 



) 



Set default account 
user name, priority. 



Get specified 
account, user 
name, priority. 



Get job number if 
specified. 




Get default job 
number. 



Initialize flogs, 
pointers, and GO 
and OV sizes . 



Purge all X: files. 



DOGOOV 

Set up GO 

and OV. 



rBi65 y 



yes 



^7m\-^. 



yes 



€H 



1 



Initialize ALLOBT 
control tables. 




Output break page 




Set break DCB 
toLO. 



»/b165 J 



Set break DCB 
toLL. 



I 



Log JOB command 
site, and date/time, 



i 



SEARCHAI 



Validate account . 
and user name.i 




Select error message. 




A08B 



Figure 22. JOB Command Flow 
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Wait for unfinished 
services 



< 



C20 



Do accounting 



Log FIN command 



Finalize flags 



Release job-reserved 
page used for 
ASSIGN table and 
control command 
buffer 






Figure 23. FIN G>mmand Flow 
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Get I/O medium 
specification 



no 





no 
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Log warning message 



Save i/O medium 
specification 




Get next field and 
save value 



Pack next ASSIGN 
toble entry. Update 
ASSIGN table size 
and address 
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Figure 24. ASSIGN Command Flow 



61 



e 




Format and print 

accounting log 

on LO device. 
' 1 



Enter here when 
p\ EOF returned from 
^Accounting Log 



If purge option, 
purge ALfileby 
rewiQdir)g ALond 
write on EOF. 




Exit from DAL command 



Figure 25. DAL Command Flow 




Set attend 
mode flog. 




Exit from ATTEND command 



Figure 26. ATTEND Commend Flow 
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Set flog not to 
wait after mes- 
loge is output. 



Output 


message 




Exit if 


on "OC" device. 




MESSAGE! 
command j 

^03H — 1 


1 


PAUSE cc 

1 


immand 


Set idle bit. 




\Z/ 




\jr V_ML. 







Figure 27. MESSAGE Command Flow 
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Set flog to wait 
after message 
is output. 




Figure 28. PAUSE Command Flow 




Set "Cop label 
to previous 
assignment. 



Clear flag that 
TY key-in was 
active. 




Exit from CC command 



Figure 29. CC Command Flow 
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Set time limit into 
K: LIMIT. 




Set page limit into 
K:BPGLIM hoifword 1, 



© 



Figure 30. LIMIT Command Flow 
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f^M02 Y 



( M01 j 




no 



SCAN 



Get op label to 
change assignment. 



GETIOID 



Get new assignment 
for op label. 



Set new assignment 
for op labe I . 



( M02 j 
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Figure 31 . STDLB Coinmand Flow 
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lUscan file name. Sef area 
to system processor alter- 
nate area . Set account to 

system. Assign DCB to 
load module. 



public library 



Select error alarm since 
illegal to execute a 
public Irbrory. 




take error exit 



Save file name in alarm 
messages. 



Do READ CAL to read in 
file header of program 
to execute. 



Output "file nonexist" 
a larm and take error exit 




program 

secondary 



Go through tables set by 
ALLOBT command and 
set up all Bckg. Temp 
Files input on ALLOBT. 







primary 



/n05 J 



Error if no "FG" key-in. 
Error if program in BT area 
and not on OV file. 




Figure 32. NAME Command Fbw 
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Go to N80 SBR fo 
do special check 
and allocation for 
AP. 



Do RUNCALso 
foreground program 
will be loaded and 
storted. 





Inspect status posted 
and output an al arm 
if appropriate. 



Output 

"BT OVERFLOW" 

alarm. 



take error exit 




take error exit 



Save file name 
and area for 
Bckg. Loader 




Figure 32. NAME Command Flow(cont.) 
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/ A»ign F:DC h>\ 

\ specified load / 
\ module / 



Set default priority 



Get priority and/or 
DEBUG if specified 






Figure 33. RUN Command Flow 
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Assign F:DC to file OV in 
area BT 












Figure 34. ROV Command Flow 




Set up default FPT for CAL 



Set specified parameters 
into appropriate FPT fields 



Execute the CAL 



CAL error 





Set CAL address and error 
code in message 




Figure 35. INIT, SJOB, or BATCH Command Flow 
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Scan command and 
save all parameters 
m temporary eel Is. 



If format not input by 
user, set to un- 
blocked. If GO 
file, set to blocked. 



If file size not in- 
put, set default to 
1000 records. 



Calculate number 
sectors needed for 
file based on for- 
mat of file. 





DOGOOV 



Set up GO or 
OVfile 



no 



Save info, oboutfile 
inpemn. JCP tables 
{CFORM,RSlZE, 
GSIZE, SAVE). 



© 



Output alarm 
"CC ERR, BT 
OVERFLOW" 





Figure 36. ALLOBT Command Flow 
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S«r up eel Is to dump 
In K:PMD for Post- 
mortem Dump 
routine. 
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Figure 37. PMD Commond Flow 



(yoA nvoij v^°0 



Do proper CAL 
to position device 
to proper place. 





Figure 38. PFIL, PREC, SHL, REWIND, okJ UNLOAD Command Flows 
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Do write EOF CAL 
to write proper num- 
ber of EOFs. 
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Figure 39. WEOF Command Flow 
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Table 1. ASSIGN Table Description 



Woid 



OescripHon 



Contains number of entries in table. Must fdl I on an odd virtual address. Is pointed 
at by K:ASSIGN. 



lOn+1 thru 
lOn+10 



Entry number n, described in more detail below. 



lOn+1, lOn+2 



EBCDIC name of 0C6 astocioted with entry n. 



10n+3 



Flags controlling I/O medium rame representation. Bit 1 is set for an oplobel name, 
right-aligned in word 10n-t4. Bit 2 is set for a device name left-aligr>ed in words 
lOn+4, lOn+5, Bit 3 is set for a disk area mme right-aligned in word lOn+4, and o 
file name ieft-^jligned in words 10n+5, lOn-f^. If a file name is all blank or all zero, 
a whole disk area is indicated. Bit 13 is set for a disk file account name in words 
lOn+7, lOn+B. 



10n+4 thru 
lOn+8 



The EBCDIC name of an I/O medium, formatted as irtdicated by flogs in word 10n43. 



lOn+9, 10n+10 



10n+9 



lOn+10 



Indicator flags and volues for changes to DCB Pields other than those identifying the 
I/O medium. 



I 

V 


1 
c 


2 

V 


2 

C 


3 
1 


3 
C 


4 

V 


4 

C 


5 
V 


5 
C 


6V 


6 

C 


7V 


7 
c 


^^^^^^ 



8V 



8 ^S 



^ 



kC 
IV 

2V 
3V 
4V 
5V; 
6V 
7V: 
8V 



if reset kV is unused; if set, kV is to be inserted. 

value for MOD field 

value for ASC field 

value for DRC field 

value for D/P field 

walue for WC field 

value for 6TD field 

value for NRT field 

value for RSZ field 



X)P Loader 

The JCP Loader ioods Relocatable Object Modules (ROMs) or groups of object modules that use o subset of the Xerox 
Sigma 5/7 Object Language, biitially, the Loader processes all parameters on the ILOAD command and sets up the 
appropriate DCBs arKJ flogs. If the program being loaded has overlays, space is reserved for the program's OVLOAD 
table at the end of the XP Loader. The OVLOAD table contains 11 words for each overlay; the first word of 
OVLOAD contains the number of entries in the table. The exact format of the OVLOAD table is given in the "CP-R 
Table Formats" chapter. Note that words 2 through 10 of the OVLOAD table have the same format as the Read FPT 
that is needed to read an overlay into core. Next, the first word addresses of the Symbol table (SYMT1 and SYMT2) 
are set up. The diagram in Figure 40 depicts the core layout before PASS1 of the JCP Loader. 
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X:P Loader Code 



OVLOAD 

(Spoce for OVLOAD Table 

if program has overlays) 



SYMTl 



SYMT2 



The JCP Loader uses Simplified Memory Management 



KrBACKBG ' 



SMTl 



-/ 



KtBCKEND 



( 



Figure 40. Pre-PASSI G>re Layout 

The JCP Loader is a two-pass loader. In PASSl, the ROMs are input from the BI op label and copied onto the XI 
file on the disk. The XI file is set up to use all of the Background Temp area of the disk that is available for scratch 
storage. The main function of PASSl is to build the symbol table (SYMTl and SYMT2) containing all DEF items, 
and to assign a value to each DEF. The symbol table has the following format: 

SYMTl a doublewofd -entry table containing the names, in EBCDIC, of each DEF item In the program being 

loaded. The first entry is not used. 

SYMT2 a doubleword-entry table. The fiist word of the table contains the total number of DEFs in the 

table. The subsequent entries have the following format: 




Value of DEF OS a byte oddress 



where bit 8 = 1 if this is a duplicate DEF. 



At the end of PASSl, the size of the symbol table is fixed so the remainder of core can be used as a load area in 
PASS2. After loading the program root in PASSl, space is allocated for the M:SL DCB (if the program hop overlays), 
the DCB table, and the OVLOAD table (if the program has overlays). These items ore allocated in the following 
order: 



Progrom Root 



M:SL DCB 



DCB Table 



OVLOAD Table 



7 words 



3 words/DCB 



1 1 words/overlay i ^ 

Start of Program 
Overlay Area 
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The DCB table is built in on tntemdl table in the 3C? Loader in PASS1 after loading the program root. The DCB 
table is made up of oil M: and F: DEFs in the root, including the value of each DEF. The complete OVLOAD table 
is also built during PAS SI; eoch owrlayS entry being made after the overlay is loaded. Hence, PASSI completely 
allocates all space for the program. ' 

After the lost ROM is loaded at the end of PASSI, the file header is written to the appropriate disk file. The re- 
mairtder of core not used by the Symbol table is then rounded down to an even multiple of disk granules and set up 
OS the lood area for PASS2. There must be enough room to hold at least one disk granule, plus 12 extra words, or 
the load will be aborted at this point. The XI file is then rewound and PASS2 commences. The following dio^rom 
depicts the core setup at the start of PASS2: 



JCP Loader Code 



OVLOAD 



SYMT1 



Load Area for 



SYMT2 



4 4 Pass Two 

KrBACKBG End of JCP Looder K:BCKEND 



PASS2 inputs the ROMs from the XI file, satisfies all externol REFs by finding the value of the corresponding DEF in 
the Symbol table, and then writes the program in core image format to the proper disk file in a multiple of granules 
at a time. Between 8 and 12 extra words ore loaded each time at the end of the lood area in cose a define field load 
item requires that the load location be backed up a maximum of 8 words. This prevents having to read a granule 
bock into core after it has been written in the event a word has to be chonged because of a define field item. 

These 12 words are copied from the bottom of the load area to the top of the load area after the granules are 
written on the disk. The previous 8 words ore therefore always available in core to satisfy a define field item. 

After the root has been loaded in PASS2, the M:SL DCB (if appropriate), the DCB table, and the OVLOAD tobies 
are attached in that oider to the end of the root and written on the disk. After all ROMs have been loaded, the 
JCP Loader outputs the mop if requested, closes all files, and exits to JCP. 



Job Accounting 

Job accounting is on option selected at SYSGEN time. An accounting file will be kept on the disk by the JCP if 
the accounting option was chosen. The accounting file is named AL, and resides in area D1. It is automatically 
ollotedby INIT. 

Whenever a I JOB or IFIN command is read by the JCP, the JCP will update the AL file for the previous job. The 
format and record size of the AL file is automatically set by the JCP via a File Mode CAL. The JCP defines the AL 
file OS a blocked file with a record size of 32 bytes. The AL file on the disk consists of a series of eight-^iiroTd rec- 
ords, where a new eight-word record is added for each job. The format of each record in the AL file is as 
follows: 

Word Description 

1,2 Account number in EBCDIC 

3,4,5 Nome in EBCDIC 

6 Left halfwoid = {year - 1900) in binary, Right halfword = date os day of year (1 - 365) 

7 Start time of job in seconds (0 - 86399) 

8 Elapsed time of job in seconds 

Whenever on entry is odded to the AL file, the file is opened ond a file skip performed so that the new entry con be 
mode at the end of the existing entries. No attempt is made to combine entries in any woy. The contents of the AL 
file con be listed via the IDAL commor>d, (Dump Accounting Log), and the option exists for the user to purge the file 
after the dump is completed- The AL file is purged by rewir>ding it and writing an EOF. 
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Backgrouml TEMP Arta Allocation ' 

The JCP allocates and sets op the files in the Background Temp (BT) area (X1-X9, GO, OV) before exiting to the 
Bockground Loader to lood a processor or user program. The BT files needed by the user are defined either via 
lALLOBT commands or through defoult by the JCP from inspection of the user's DCBs. The GO and OV files are 
set up at the stort of each job and remain intact for an entire job; the required files Xt through X9 are normally set 
up for eoch job step only. 

Information for files XI -X9 read in from lALLOBT commands is stored in tables (GSIZE, FSIZE, FORM, SAVE, 
RSIZE) that are internal to the JCP. If the GO or OV file is changed via on lALLOBT command, the file is re- 
defined at the time the command is processed. 

The files in the BT area ore allocated so that files remaining intact only for that job step ore allocated at the front 
of the BT area. Files that remain intact for the entire job ore allocated at the bock of the BT area- Normally, this 
means that XI through X9 ore allocated at the front of the BT area, and GO and OV at the opposite end. If the 
SAVE option is used on an lALLOBT command for an X! file, the X! file will be allocated at the opposite end of the 
BT area, os will GO and OV. The following diagrams illustrate the BT allocation: 



BT allocation without lALLOBT Commands: 

Xn I . . . . I X4 I X3 I X2 I XI I OV I GO 



J 



Intact only for a job step Intact for entire job 

The proper Xi file is allocated for each M:Xi DCB in ttie user program. The remair>der of the BT area after GO and 
OV have been allocated is evenly divided among the Xi files. 

BT allocation with lALLOBT Command: 



Xn ... 


. . . X4 


X2 


XI 


X3 


1 OV 


GO 


1 1 


' ' J 



Intact only for a job step Intact for entire job 

The above diagram illustrates how BT would be allocated if an lALLOBT command was input to save the X3 file. 
Note that X3 is allocated at the opposite end of the area with OV and GO. 

Allocation of the Xi (1 £ i <9) files is performed in the following sequence: First, any files input on an ALLOBT com- 
mand are allocated at the proper end of the BT area. Next any Xi files that were not input on an ALLOBT command 
are allocated by default in the remaining area. Note that if the "ALL" option is used for file sire in the ALLOBT 
command, there will be no room remaining for default allocations. 

The following example depicts the allocation of BT as previously described: 

Example 1: 

1. An lALLOBT command for XI file with SAVE option. 

2. An lALLOBT command for X2 file. 

3. The system was SYSGENed with (BT, 6) on the RESERVE command. 
In this case, the BToreo would be allocated as 



X2 


X6 


X5 


X4 


X3 




XT 


OV 


GO 


III 


1 J 



Intact only for a job step Intact for entire job 

73 



In this example, the XI and X2 files would receive the sizes input on the lALLOBT coninmd, while the X3, X4, 
X5, and X6 files would be eventi/ distributed over the remaining area. 

The JCP does special allocation of the BT area for the AP and MACRSYM processors, since the scratch space require- 
ments of these processor depend on the parameters of their calls and the space is unevenly divided among files 
involved. This special allocation Is done by the use of nonstandard allocation-control tables whsn JCP is invoked to 
lun either the AP or MACRSYM processor in the background. Other special allocation tables could be odded for 
other processors requiring nonstandard allocations. 



74 



6. FOREGROUND SERVICES 



Foreground services ore those service funcfions restricted to foreground utilization. In general, they are associated 
with the control of system interrupts, the hondling of foreground tasks, and direct \/0 (lOEX). The following ser- 
vice functions fall in this category: 

RUN/INIT 

RLS/EXTM 

MASTEIV^SLAVE 

STOPIO/STARTIO 

lOEX 

TRIGGER 

ENABLE/DISABLE 

AR\0>ISARM 

CONNECT/DISCONNECT ', 

In teirns of the functions as port of the resident CPR, the resident function sets indicators for RUN and RL5, and the 
Control Task actually performs the function. 

Implementation 

RUN If an entry for the specified program does not already exist in the LMI table, an entry is built. The LMI sub- 

tables ore set as follows: 

LMI1 Program name 

LM\2 Group code for interrupt to be triggered at conclusion of initialization by Control Task 

LMI3 Group level for said interrupt 

LMI4 Signal address and (optionally) priority 

LMI5 Switches 

K:FGLD is set nonzero, the Control Task is triggered and control is returned to the user program. 

If an entry does exist in the table for the program, a code is placed in the signal address- The codes used ore 

3 Program already loaded 

4 Program waiting to be looded 

If no entry exists for the program and there are no free entries in the LMI table, a code of 5 is placed in the signal 
oddress. Sufficient reentrance testing is perfonned (for details, see the program listing). 

RLS If an LMI entry does not exist for the specified program, control is returned to the user. 

If on entry exists and the program is rrat loaded, LMI1 and LMI5 are zeroed, and control is returned to the user. 

If an erttry exists and the program is loaded, a flog in LMI5 is set, K:FGLD is set nonzero, the Control Task is trig- 
gered, and control is returned to the user (for details of reentrance testing, see the program listing). ^ 

MASTER/SLAVE The mode bit in the PSD soved in the user Temp Stock is set to the proper state and control is re- 

turned to the user. When returning control, CALEXIT executes on LPSD that establishes the proper modeforthe user. 

STOPIO/STARTIO The specified device is determined and all other devices associated with it (all other devices 

on o multidevice controller or all devices on the lOP if the call so requests) hove their proper STOPIO counts in- 
cremented or decremented. The count is either in DCTI4 or DCT15 os specified by the call. 
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An HIO is perfomMd on those devices If requested b/ the coll. 

If a DCTI5 count goes to zero as a result of a decrement, the lOEX busy bit in DCT5 (bit 7)is reset for the device. 

. DEACTIVATE/ACTIVATE The specified device is determined, and it and all oHier devices associated with it 

{at! other devices on o multidevice controller, or all devices on the lOP if the call so requests) are marked "down" 
(Deactivate) or marked operational (Aetivote). An HlOis always performed on thesedevices for oDeoctivate request. 

lOEX For TIO and TDV instnjctions, the instruction is executed and the status is placed in the copies of R8 and 

R9. The condition code field of the saved PSD is placed in the Temp Stack. Then at CALEXIT, these copies are 
placed in R8, R9, and the PSD, and returned to the user. 

For SIO, the lOEX bit (DCT5, bit 7) is tested. If the lOEX bit is set the SIO is executed and status and condition 
codes ore returned to the user. If the lOEX bit is not set, the request is queued and status is returned to the user 
indicating that the SIO was occepted. The user obtains octuol status by specifying end-action. Various registers 
contain pertinent status at that time. 

For HIO, the lOEX bit (DCT5, bit 7) is tested. If the bit is set, the HIO is executed and status and rondition codes 
are returned to the user. If the lOEX bit is not set, the monitor routine RIPOFF is called which will eliminate any 
ongoing or queued requests for the device. The user receives status artd condition code settings which indicate the 
HIO request was occepted. 

HUGGER, DISABLE, ENABLE, ARM, DISARM, CONNECT, DISCONNECT These functions are similar in that 

they involve the execution ofa Write Direct after determining the groupcode ondgroup level of the specified interrupt. 

In addition, a task connection is perfonned if requested by ARMr DISARM, and CONNECT requests. Note that the 
CONNECT call is a special case of the ARM coll. The logic for ARM, DISARM, and for CONNECT functions is 
illustrated in Figure 41. 

Task CMlral Block (TCB) 

The CONNECT function initializes words 2-9 of the user-allocated TCB for internipts and CALs that are to be cen- 
trally connected. The format of the TCB is shown below: 




1 
2 
3 

4 
5 
6 
7 
8 
9 
10 



- Saved PSD 



.Intennediate PSD to transfer 
to TCB+4 with skeleton key 



STM,0 



TCB+10 



BAL,R1 



RBMSAVE 



PCB address 



Priority 



TCB address 



^PSD to trantfer to tadi entry in proper 

state (mode, write key, etc.). 



/ 



16 words for register saving 



/ 



25 



1 



78 



1516 



31 
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Get group code and 
level bit. 




Disable the interrupt. 



Set up words 2-9 of TCB. 



CON 
N7 



Store XPSD in interrupt 
or trap cell and make 
INTTAB entry. 






Store clock counter values 
and"MTW,-l" instruction. 



Issue proper "WD" instruc 
tion to count pulse Interrupt. 



Set index to enable or 
disable as appropriate. 



Inue "WO" Instruction 
to interrupt. 




Figure 41. ARM, DISARM, and CONNECT Function Flow 
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Make INHAB entry 
for direct connection. 




Store the 'XPSD' 




Get "MTW" injtruction 
from FPT and store in 
count pulse location. 




Store the 'XPSD' 





Figure 41. ARM, DISARM, and CONNECT Function Flow (cont.) 
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7. MONITOR INTERNAL SERVICES 



CP-R Overlays 

All CP-R overla/s may be declared to be resident or nonresident at SYSGEN time, in order to increase performance 
of o particular function or to reduce monitor size, respectively. This is done by means of the :MONITOR control 
command. 

The overlay technique allows a user call for such functions as OPEN and REWIND to bring in on overlay to perform 
the function. The structure is reentrant (allows multiple users at different priorities to use the overlay area), recur- 
sive (allows on overlay to call an overlay), and usable for any monitor function (allows overlays at the control-task 
level to use the some area as those for user services). The overlay technique employed requires no explicit colls for 
overlays. When on overlay is needed all that is necessary is a branch to a REF: 

REF OEP (overloy ENTRYpoint) 

B OEP 

/ 
/■ 

SYSLOAD will fulfill these references by having them bronch to the Overlay Manager (OMAN) which will load the 
overlay. 

In order to create on overlay the programmer must include DEF's in the overlay ROM for all possible ENTRY points 
and all possible EXIT points. An ENTRY point is defined as a point at which one would enter the overlay via any 
type of branching instruction (BAL, BCR, BCS, LPSD, etc. ). An EXIT point is defined as a point at which one 
would exit the overlay with no Intention of returning to this overlay without first going through on ENTRY point. 
For instance, o BAL to o resident subroutine from the overlay would not be considered on EXIT point since a return 
to the overlay will take place. All EXIT point instructions must be unconditional branch instructions, either 6*1^ 
or B address. This is due to the fact that the EXIT point instructions will be replaced by uiKonditionol branches to 
the Overlay Manager which may replace the overlay with a previously active overlay and then execute the EXIT 
point instruction. 

An overlay will be named by the first DEF in the module, which must be the first BO-generotive statement. As the 
CP-R ROMandthe overlay ROMs are read by SYSLOAD all unsatisfied REFs are assumed to be overlay-load requests 
and thus ore satisfied by creating an entry in the Entry Point Inventory (EPl), described below, and usingthat address 
to satisfy the REF. 

As the overlays ore read, oil DEFs are checked for possible ENTRY points or EXIT points. A DEF will be considered 
an ENTRY point if a previous REF for that name has been located. If a previous REF has not been ertcountered the 
DEF will be considered an EXIT point. This algorithm implies that the order of the overlay ROMs as read by SYS- 
LOAD is significant. All overlays which coll overlays should do so with forward references. 

As each overlay is encountered, its name (the first DEF) is compared against the list of resident or nonresident over- 
lays OS defined by the user on the :MONITOR SYSGEN command. If found to be nonresident, the overlay is linked 
to run in the overlay area and written out to the SP area. If found to be resident, it is linked at the end of the pre- 
sent monitor end and, or course, is written out with the monitor. The last ROMs on the SYSLOAD medium must be 
the subsystem overlays (currently TEL, LOAD, and JCP) preceded by INIT. Figure 42 shows the general arrange- 
ment of the SYSLOAD-input ROMs. 

OMAN uses the EPI and OVI tables to moke sure the proper overlay is in core at oil times. OMAN is activated by 
a reference to the EPIEP as set up by SYSLOAD. EPIEP contains a CAL1 instruction. OMAN is entered from the 
CALl processor with inhibits set, and examines the address of the CAL1 to calculate the index for EPI if it is on 
OMAN coll. If the address is in the EPIEP table this is a request for an overlay load. If it is in the ovji^rloy oreo 
and of the form ■* 



4 

I } 3 I4 S « 7 



Address in EPIEP 

■ • w 111 12 13 u isIm 17 It i«lx 2> c nl» 2s u rlsi I* X 31 



then it is on EXIT. 
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Simulators 



CP-K resident 




INIT 



Subs/stem Overlays 



Figure 42. Arrangement of SYSLOAD Input RO^fk 

For ontries, the previously overlay informotion is stacked, the new overlay is loaded, ond control Is trortsferred to 
the ENTRY address. For an EXIT, previous overlay information is unstaclced, Ih^ lost overlay is reloaded if neces- 
sary, and the instniction in EPIEP is executed. 

After every activation the octive overlay ID (OVI ir>dex) is placed in the STIOV field. When on exit takes place 
the STIOV field is cleared. EXIT checks STIOV to see if the task to wrhich it is exiting has an octive overlay. If it 
does and the presently active overlay for the system is not the some, EXIT forces an entry to OMAN to reload the 
active overlay for the task. (This is done at the level of the task which is being exited to. ) 

This overlay technique has several unique aspects which should be noted: 

• Any reentrant piece of code which is entered via a branching type instruction and exited vio an uncondi- 
tional branch may be converted to an overlay simply by 

• Assemblirtg it as a separate ROM. 

• Placing a REF where a branch to it tokes place. 

• Placing a DEF for the ENTRY point in the ROM (first DEF also used as overlay name). 

• Placing o DEF for the EXIT points in the ROM. 

The system overhead incurred by this conversion is only one instruction when the resultant overlay is de- 
clared resident. 

• No registers are destroyed in loading and transferring control. 

• Many such pieces of code may be placed into one overlay. 
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EMry MM cHt PMrt 



(EPI) 



Purpose: The EPI is used to intercept all entries to overlays end to save all exit instructions from overlays in 

order that the Overlay Manager (OMAN) con load the proper overlay. 

Type: Parallel in CP-R table space with a fixed number of entries. Generoted by SYSLOAD. 

Logical The EPI Index is, in essence, gBnc^ted by SYSLOAD. When SYSLOAD encounters a reference to on 

Access: entry point, the address is replaced by the address of on EPI entry (EPIEP). When an exit point is en- 

countered the entire instruction is replaced by a CAL1 instruction. 



EPIEP: An EPI table entry can have one of three fomns. If the entry is an ENTRY point to a resident overlay: 



6 B 



Address of entry 



6 1 ] iU 5 t )li ( li nlii 13 14 iiU » it #\lt i\ iiUlii b k »\ik » » i 



If the entry is an ENTRY point to a nonresident overlay: 



4 

i I I i\t i t } 



OVI index 

I f n )lll2 13 U IS 



Address of entry 

TnnnftBTFrB"HtirETmT5r3STi 



If the entry is an exit point: 



Replaced instruction 

1 1 lit i t 7 I I < W llli: I] M lilu 17 !• WI30 21 22 23Im IS 16 ZtIm It J6 )I 



(This is the actual instniction that was !n the overlay and has been replaced by a CAL1 with an effec- 
tive address of the replaced instruction.) 



OvMliy iHVtiitMY (OVI) 

^rpose: The OVI replaces the table previously defined as OVLOAD. It is used by OMAN to load overlays 

for both primary and secondary tasks. For each overlay it contains the sector address, lertgth, and 
name. 



Type- 



Parallel in CP-R table space with a fixed number of entries. Generated by SYSLOAD. 



Logical The EPI (Entry and Exit Point Inventory) has a subfield of EPIEP which indexes the proper overlay for 

Access: that Entry Point. 



Entries; 



OVISK 



Seek address 

i 3 1 j i t y l i > 1 8 ii Mi H u i 5 l » \J I I » ! » ai a a l M 8 M g l a » » a i ' 



OVILG 
(exOVLOADI) 



Number of bytes 

t I > iU i « >li I 16 ilIU ii 14 IS 



OVINM 
(exOVLOAD2) 



4-Character EBCDIC name 
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OVIMA poge address 

TTTTtTTTTtmrntBTrinj 



OVICT 



Count 

T-TTTtT-r-rT 



OVIECB 



Head of pteudo-ECB chain 



t I ] lU i i ;ll I H Dili U U UlU l> H Wlie ]l B Blit B U PISK I 5f 



where 

OVISK Is t4ie seek address of the overlay on the device containing the SP area. 

OVILG is the let^th of this overlay in bytes (<204e) . 

OVINM ' is a 4-character EBCDIC name representing the first DBF in the overlay. This is the 
name used in the SYSLOAD map and the name to i>e used for all communications about the 
overlay. , 

OVIMA is the page address of the overlay if it is in core. The value is zero if it is not in 
core. 

OVICT is the use-count field used to determine which overlays should remain in core in roll- 
out circumstances. 

OVIECB chain head of a list of two word pseudo ECBs. The first word contains the forward 
link. The second word contains the 10 of the task which is waiting lor receipt of the overlay. 



Event Control Block and Event Control Services 

Purpose: 



Type and 
Location: 

Logical 
Access: 



Event Control Blocks (ECBs) provide task monogement and CAL processors with the mechanism for con- 
trolling system services explicitly requested by tasks or invoked by CP-R. 

ECBs ore eight-word serial control blocks in TSPACE, with chained data areas also in TSPACE. 

ECBs ore members of two chains and can be located only via one or the other of these chains. The 
chains are as follows; 

Solicited ECB chain — A chain headed in the LMI entry corresponding to the task for which the 
event is being performed. The chain head is in LMISECB. 

Request ECB chain — A chain general ly headed in the LMI entry corresponding to the task pei^ 
forming the service. If no one specific task is responsible for posting, the R- chain is either not 
used or is headed elsewhere. 



Ovtrvitw tf ECB Usage 

Asynchronous or synchronous (vs. immediate) service requests must create ECBs to control the event processing. 
Asynchronous or synchronous service coils ore those performing functions which require waits for some other logic 
within the processor or external event to complete prior to completing the original request. They ore as follows: 



RUN 


SEGLQAD 


UNLOAD 


TYPE 


DFM 


INIT 


OPEN 


WE OF 


ALLOT 


DEVN 


ENQ 


CLOSE 


PFIL 


TRUNCATE 


ACTIVATE (MM) 


SIGNAL 


READ 


PREC 


DELETE 




STIMER 


WRITE 


DEVICE 


STDLB 




POLL 


REW 


PRINT 


GETPAGE 





B2 



In oddlHon to the above CAL piocetsore, CP-R tasks may crea^ and use ECBs to control their own scheduling and 
eommunieote with other modules. These tasks ore as follows: 

Task biitioHon 

Task Termination 

Key-in Processors 

Memory Management executive including ROLL-IN and ROLL-OUT 



CAL Processor Usoge 

The CAL processor will create ond initialize the ECB. If the service is requested with wait, the CAL processor 
will loop waiting for the ECB to be posted if the caller is primary, or set the ECB and dispatcher controls for 
secondary tasks and return to the dispatcher. A posting phase is executed when the ECB is posted. A checking 
phase is performed following the post. The completion data is returned to the user and the ECB deleted. The CAL 
processor then exists. . / 

If services are requested without wait by the user, the CAL processor creates and initializes the ECB and starts the 
service to the extent possible until a wait would occur. The CAL then returns to the caller. Some time lotera post- 
ing phase is executed. The caller must eventually issue a CHECK on the service. Failure to do so would cause the 
ECB to remain 'active' until task termination. When the CHECK call is performed, the service is processed until a 
roodbiocked condition occurs or the service is done. If the service completes, the cleanup is done as above and 
control returned to the caller. If the service is still not complete, the busy exit will be taken if it was provided. 
If no busy exit was provided, the system waits for the service to complete as described (^}ove, then does the cleanup 
and exits. 

Note that the order of posting and checking is variable. A post moy precede the execution of a check. 



Task-Termination Usoge 

Task termination keys on the ECBs during its initial phases. Eoch ECB must be posted before the task Is allowed to 
terminate and release its core resources. The termination routines drive the ECBs to completion as rapidly as pos- 
sible by calling special subroutines for each ECB type. It then does a WAITALL on the ECBs. 



ECB tnd Dati-Area Formats 

Figure 43 shows the detailed format of on ECB and gives an example of chained data areas. 
Description of the individual data elements follow. 

ECBDATA (Word 0) 

Length: The length of the first data area in the chain, in words. ■« 

Data area address: The address of the first data area. Initially, this word is set to zero. If a data area is added to 
the ECB, the length and address (as returned from the GETTEMP) are stored here, and the first word of the data area 
is zeroed. Subsequent data area additions continue to store this word into the first word of the newest data area and 
put the new control in the first word of the ECB. Data area deletions do the inverse, namely, move the first word of 
the data area being deleted (always the first in the chain) into this word. 
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Word 



Langth 



S-task ID 



R-tosk ID 



Dahi area address 



FPT/bCB address 



S-ECB chain next 



R-ECB chain next 



Priority 



EAType/ 
Group 



Class 



End action oddress (6AL or Signal) 

Address-X'4F'| Level bits 



Type compL |b[ 



Timeout 

Completion status 



0'r2'3'4'5'6'7'8'9 BmI 



ECB type 



31 



Lengith 



Data area address 



Newest data area 



OT 



TT 



31 



-v /- 



Oldest data area 



oT 



31 



Figure 43. ECB Format and Chained Data Areas 



ECBFPT CiVord 1) 
Flog bits as follows: 
BitO 



Reserved 



BUSY (bit 1) =1 if the ECB has not been posted. This means that word 6 contains the timeout threshold, if 
any. 

= if the ECB has been posted. This means that the type of completion and completion status 
hove been stored over the timeout threshold in word 6. 
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INP (bif 2) * I if tlM ECB it 'in- p re cw '. Thit bit is set during a POLL, check phase, to avoid wbtaquent 
polls from acquirins the tarn* ECB. 

= if the ECB activity has not been initiated . 

In-process may be set by internal CP-R tasks which do not use a POLL to indicate that the 
ECB is being operated upon. 

WD Osit 3) =1 The wait count in the STI entry of the S-task is to be decremented by one (if it is not al- 

ready zero) when the ECB is posted. If the count becomes zero due to the post, the dis- 
patcher should be triggered and the task entered If the S-task is o higher priority than the 
posting task. If it is lower, the dispatching is deferred. 

= Do not alter any dispatch controls at posting. The task is not waiting for the ECB. 

WD is set by the EMWATT subroutine and WAITANY, and WAUALL calls. It is reset by 
posting. It is olso reset by WAITANY after gaining control on a multivalued wait. 

DP (bit 4) =1 Delete the ECB as soon as the posting logic is complete. The user does not expect to 

check the FPT nor does he require feedback of the type of completion. 

= Do not delete the ECB until after the checking/cleanup phase is complete. 

DP is set on service calls with Delete -on -Post set (F8 = 1), qtA on service colls that gen- 
erate ECBs but are not CHECKable. On all other ECBs, it is reset. 

CHK (bit 5) =1 Checking is in process on this ECB by some task, and other checking phases are not to be 
allowed. This bit is set by service call processors when requested with wait. It is set by 
CHECK CAL entry before going to the ECB-type-dependent checking routine. It is set 
by TEST, WAITANY and WAITALL when processing the ECB through checking phoses. It 
is reset by EMWAIT when taking o busy exit. CHECK tests the bit prior to setting it. If 
nonzero, the CHECK is rejected os invalid and the busy exit is token if provided. If not 
provided, the calling task will be trapped. TEST, WAITANY and WAITALL ignore ECBs 
in the S-cha!n with the CHK bit set. 

POST (bit 6) =1 Posting is in process on this ECB. Other posting operations ore not allowed. This bit is 
set by the posting subroutine entry prior to entering the ECB type^ependent logic. If 
POST is already set, on error exit is given to the caller. POST is reset by checking 
phases if the ECB is 'unposted' to allow additional processing phases. 

Note that if POST = I when an ECB is created, no posting operation will be allowed. If CHK = 1 when on 
ECB is created, no checking operations will be allowed. 

TO (bit 7) =1 Timeout of the ECB is in process ond other timeout operations ore not allowed. The 

proper ECB posting routine will be called. 

FPT/DCB address: This is the address of the caller's original FPT (or DCB in the cose of Type-I I/O). On all CHECK 
or DELFPT service colls, this serves as the control field to locate the ECB which represents the service being checked. 
It also allows the WAITANY, WAITALL and TEST calls to know the location of the original FPT or DCB in order to 
build an internal check FPT. An FPT/DCB address must be stored in all ECBs at creation. If the FPT wS^ in regis- 
ters, the register address (&-F) is stored. 

ECBSECB (Word 2) 

S-Tosk ID: The task-ID of the task that solicited the service or that is checking the service. 

S-ECB Chain Next: The address of the next ECB in the lolicited-ECB chain of the S-tosk. 



85 



At a tack raquwts aiynchrafwtM Mrvtces, th* ECBt crao^ad ar» oddad to Hm and of o chain which it hooded in the 
1^1 entry eorretponding to the toik. Thit piovidet the system with knowledge of oil the outstanding service requests 
for a load module. On checb or deletes, thit chain it used to teorch the S-ECBs. It is also used by Task Tennina- 
tion, WAITANY, WAITALL ar>d TEST to define all the services in process. The S-choin is maintained as ECBs are 
created ar>d deleted. The S-task ID tells the chalnirtg logic, irtdirectly, in which LMI S-choin to place the ECB. 
Men importantly, at pasting time, it tells the EMPOSTYC subroutine, whose task controls, to update if wott de- 
crement is set. 



ECBRECB (Word 3) 

R-Task ID: The task ID of the task that is to provide the requested service and that will post the ECB, if ony. 

R-ECB Chain Next: The oddress of the next ECB in the request-ECB choin of the R-task. 

Some events are directed to one CP-R task or user lood module that is to provide the service and post the ECB. This 
task is called the responsible task ond has a chain (R-chain) through all ECBs currently directed to him, which is 
headed in the LMI entry corresponding to the task. CP-R tasks will have a lood-module-inventory entry ^ head 
these chains. The chain is In priority order, with the newest requests at the beginning of their priority ^roup. The 
chain is used by POLL to locate requests ond give them to the task for processing. It is also used by POST to vali- 
date the ECB identification in the FPT. Internal CP-Rhisks may use the R-choin directly to locate and operate on 
request ECBs. The R-cha!n is maintained as ECBs are created and posted. The R-task ID tells the standard R-chain 
maintenance routine, indirectly. In which R-chain the ECB is to be placed, or removed. 

In the following coses, on R-task con be identified: 

• INIT requests -Task Initiation on behalf of the initiated task. 

• SIGNAL requests — The task signalled. 

• ACTIVAT^GETPAGE - Memory Management Executive. 

In tome coses, the service is provided in such a way that a specific task cannot be Identified which provides the 
service. In these cases, the R-chain is either not used, or is heoded in some other control table, not an LMI. The 
following ECBs are this type: 

• ENQ requests — Service provided by the DEQ CAL processor. The R-choin is headed in on EDT. 
a STIMER requests — Service provided by the clock-4 interrupt processing. No R-chain is used. 

e POLL requests — Service provided by the SIGNAL CAL processor. The R-chain is rwt used. 

a I/O requests — Service provided by the I/O — interrupt processing. Iruteod of containing R-task informa- 
tion, bits 0-7 contain the service-coll FPT code and bits 15-31 contain the byte count. 

ECB PC (Word 4) 

Priority: The priority of the ECB as requested by the caller. Generally it will default to the caller's priority. Pri- 
ority is used to determine the order of the R-chain. It olso will become the execution priority of tasks which poll 
for the R-ECBs occording to the description in the POLL specification. Priority is set when A\e ECB is erected. 

Class: The class mask that is set when the ECB is created. Generally the class will be the default value of X'FFFF'. 
On polls, this field is logically ANDed with the class specified in the POLL (default is also X'FFFF'). If the result 
is nonzero, the ECB qualifies for the poll. 

Note that for V'G requests, word 4 instead contains clean-up information ^e IOQ13, word 1). 

Memory Monogement ECB's contain control informotion in bits 16-31 of word 4. 
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ECBENPAC (Word 5) 

The end action for posting, as follows: 

Word = No-end action for service. 

Byte = 00-OF End-action contains interrupt-trigger dato. The Interrupt group is the value in byte 0. 

Byte = 7F End-action contains a completion signal address. 

Byte =" FF End-action contains on oddress to be BALed to at post time. 

End-Action Address: The entry location for BAL-type end action or signal address. 

End-Action Address and Level: The address of the interrupt — X'4F' — ond level bits for a write direct on trigger- 
type end action. 

ECBTIME/ECBCOMPL (Word 6) 

Timeout: The timeout threshold for busy ECBs. When the value (KtUTIME — timeout) is greater than or'equol to 
zero, the ECB has 'timed out' orKJCP-Rwili do a post with the timeout code (X'67'). The posting logic which is a 
function of ECB type will be entered. If timeouts require special logic, the posting routines must test for the X'67' 
type of completion and take the appropriate action. 

Type Compl. : The type-of-completlon code set by the caller posting. 

B(Bu$y): This bit will always be zero after posting. 

Completion Status: Actual record size (ARS) for READ/WRITE requests. 

ECBaiS (Word 7) 

ECB Type: An integer which represents the type of service which is being provided. This value is set symbolically 
(for flexibility) by the creator of the ECB and con be altered by the processing logic during the life of the ECB. The 
system uses the ECB type to control the service-dependent logic as follows: 

• When on ECB is to be posted, the routine that wishes to do the post will BAL,R8 EMPOST with the ECB 
identification in R2. EMPOST will use the ECB type as on index into the byte-table EMPOSTX which pro- 
vides an index into the word table EMPOSTB. The EMPOSTB entry thus located is a branch to the posting 
logic for that ECB type, and will be executed. EMPOST uses R7 for the indexing. 

• When a CHECK call or DELFPT call is Issued, the check service call branches to the check processing for 
the service type. This entry is derived as above, with EMCHKX + ECB type providing on index to the 
EMCHKB branch table to the entry point. The ECB identification is in R2. R8 is the return register. 

• When a wait occurs for a primary task on an event control block, the ECB type is used as an index to the 
bit-table EMWAITF. If the bit thus located is 1, the primary-task wait is illegal on the ECB, and the task 
will be aborted. A zero indicates that the wait is valid and the waiting routine will loop, calling SERDEV 
and waiting for the Busy bit in the ECB to be reset. 

• When DELFPT or termination occurs, the ECB type will ogoin be used as on index Into the byte-table 
EMABNX which will provide on index into the word-table EMABNB. The word thus located contains a 
branch to the logic to handle abnormal conditions for the ECB type. 

Values for the ECB type ore 



1 


V'O service calls 


5 


INIT 


2 


SIGNAL 


6 


ENQ 


3 


STIMER 


7 


Memory Management activities 


4 


POLL 


8 


STDLB for an exclusive device 
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OyMmic S|iace ffSPilCE) 

Such routines as error logging and monitor crash analysis as well as the reentrant overlays require temporary 'Space, 
which they may obtain, hold for a period of time,and then release. 

The space is managed by use of an algorithm that requires space to be parcelled out in powers of two (2, 4, 8, 16, 
32, 64, 128, 256) only. Thus if a routine asks for 19 words it will be given 32. The reason for chosing this method 
is its minimal processing time for obtaining and releasing space. 

The algorithm is as follows: 

1. When obtaining space, if the smallest power of two needed is not available the next higher power of two 
will be examined. If space is available at that level the block is split into two blocks of the size needed. 
This is a recursive technique which may be repeated until the maximum power (8) is reached. 

2. When releasing space, an attempt is made to find the released block's complement {the other half of the 
origirtal split block) and if found they are joined and the procedure repeated for the next higher power of 2 
until 8 is reached. 

DyMMic-Sptce Straicc Cals 
GETTBiP Get Space 

Inputs: 

R7 = number of words (1 through 255) 
R8 = link 

Output if space available: 

K7 — byte 1/number of vrords 

byte 2, 3, 4/address of space 
R8 = link 
Return to link + 1. 

Output if no space: 

R7 = number of words 

R8 = link 

R15 = X'66" (no-space TYC) 

Return to link. 

RELTEMP Release Space 



Input; 



R7 = byte 1/™"*»'>er of words 

byte 2, 3, 4/oddress of space 
R8 = link 



Output: 

R7 = number of words 
R8 = link 
Return to link. 



SYSGEN CenadvUions 

The niHflber of words needed may be specified at SYSGEN by use of the TSPACE option on the :RESERVE card: 

:RESERVE (option), (TSPACE, n), . . . 
where n is number of words for temporary space (a default is provided by SYSGEN). 
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Each dispatcher in CP-R possesses a queue whose head may be found in RDLISTI. (ROLI is a parallel table with 
one set of entries per dispatcher. ) The queue pointers chain secondoiy STI entries (through STIDNXT) for the dis- 
patcher in order of priority. 

To enter a dispatcher level, the higher of the two interrupt levels associated with the dispatcher is triggered. U^)on 
being entered, the dispatcher searches its queue from the head down for the highest priority task that is ready to 
run. 

A task is ready to run when 

e , !t is not waiting (STICOUNT = 0). 

e !t is not suspended. 

e It Is not stopped. 

e It is not rolled out. 

If such task is not located, the next lower dispatcher level is triggered with the final dispatcher warting in an 
idle loop. 

If a task is found, the lower dispatcher level is entered. At the lower level, the mop for the secondary task is 
loaded and control is given to RBMEXIT. This causes control to be given to the secondary task, or to the Overlay 
Manager if an overlay reload is necessary. 

It should be noted that the lowest dispatcher level requires only one interrupt level since the null level is used as 
its second level. 

See the Terminal Job Entry chapter for description of time-slicing and swapping. 



Synrfiioiits 

The monitor cells shown below contain information about the symbionts that is not related to a particular device. 
Device related information may be found in the DCTRBM, DCTSYMl, DCTSYM2 ond DCTSYM3 tables. 

SYMB 

SYMB is a word in the resident portion of the symbiont task that contains general information about the symbionts. 

The fomwit of SYMB is 








15 16 


28 293031 


Current Job 








s 
y 

M 

1 

c 



F 
I 
O 


D 
O 



where 

Current Job Is a number that will be used in naming the next job file in the IS area. The number is marr»- 
tained and used by the M J OB service call. 

SYMBC =0 means do not start background automatically; SYMBC =1 meons start background when the first 
file for o rww job has been closed by the input symbiont. 

This indicator is set by the "C S" keyin and reset by the "C O" keyin. "* 

OFLO is an indicator set by the output cooperative when the OS disk area is foil ond background can no 
longer execute. The output symbiont automatically switches to DO mode when this indicator is set. 

DO^O the symbiont task will delete a job's files in the OS area when all of the files associated with this 
job have been output. This is the defoult mode. 
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DO = 1 the aymblonf talk will d*l«t* a fob's RIm in tft* OS ana at the/ an output. Thft mode pravantt 
ovorflow of tlie OS area by a fob whtdt has a large amount of output. If this mod* Is not in effect and o 
single fob overflown the OS area, a twitch to DO mode will automatically occur. This mode does not 
allow backspacing of files in the OS area since prior data records may hove been in files that were 
deleted. 

The DO bit is set by the DO key-in and reset by the RDO key-in. 

JOBPRI 

JOBPRI is a word in the resident portion of the monitor that contains the priority of the running task. This cell is 
used only in a symbiont system and is maintained by the input cooperative. 

JOB* 

job' is a word in the root of the monitor that contains tite number of the running backgrourtd job. 

In a symbiont system, the value is used in the naming of files in the OS area and is maintained by the Job Control 
Processor. 
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a MISCELLANEOUS SERVICES 



Miscellaneous services are functions available to both foreground and background programs but which do not directly 
involve I/O services. 

SE6L0AD 

This function loads explicitly requested overlay segments of a program into memory for execution. The user's MsSL 
DCB (ollocated by the Overloy Loader) is used to perform the input operation. 

For an FPT for READWRIT, the system uses the entry in the program OVLOAD table that corresponds to the tegment. 
The OVLOAD table is constructed by the Overlay Loader. 

The function locates the proper entry in the OVLOAD table and places the user-provided error address in both the 
OVLOAD entry (FPT) and in the M:SL DCB. If end-action was requested, the FPT is set to cause end-action at 
conclusion of the segment input. 

If the calling program has requested that the segment be entered (at its entry point), the PSD at the top of the user 
Temp Stock is altered so that upon CALEXIT, control goes to the segment entry address. 

The function then sets R3 to point at the FPT in the OVLOAD table and transfers to READWRIT. The segment input 
is then treated as a READ request with possible end-action, and at the user's option, control is returned either fol- 
lowing the SEGLOAD CALl, or to the segment entry address. 



Trap Handling 



Trap CAL and JTrap CAL 

The Trop function sets up the trap control field and TRAPADD field in a user's PCB and sets the Decimal Mask (DM) 
end Arithmetic Mask (AM) bits in the user PSD to mask out occurrences of these traps. PSD bits are modified by 
changing them in the user PSD at the top of the Temp Stack and in the PSD contained in the user's TCB. 

The JTRAP function has the some effect on the DM and AM bits, but stores the trap controls and trap address in the 
Job Control Block. 

If the user-provided trap address is invalid or if the user specifies that he is to receive occurrences of tome trap and 
no trap address is provided, control is transferred to TRAPX. This results in the message 



ERR XX ON CAL @yyyyy ID = task name 



where 

XX is the Error Code in hexadecimal (00 if none). 

YYYYY '* *^ address of the CAL. 
being output on OC and LL. 4 

Trap ProcMsing 

Traps ore either handled by the user, cause simulation of the instruction where possible, or result in an abort con- 
dition. If the user is to handle traps, task-level trap handling takes precedence over job-level trap handling. 
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The registers and PSD ore soved in the user Temp Stack in the following format: 



PSD Word 



PSD Word 1 



Register 



(Registers 1 through 14) 



Register 15 



Working Cell 



Top of stack before trap 



!ThIs word appears only if the 
above zeros are in an even 
word address. 



Top of stack after trap 



If the trap is either a nonexistent instruction or unirnplemented instruction, the instruction causing the trap is 
analyzed to determine whether the proper simulation package (if any) is in the system. If so/ the simulation is 
called; if not, it is treated like any other trap. 

A test is performed to determine whether the user is to process this particular trap. If so, the trap address (X'40', 
X'41', etc.) is placed in the top word of the stack and the user's trap handling routine is entered by LPSD, eight of 
the user PSD, with the trap handler substituted for the address where the trap occurred. 

Traps not handled by instruction simulation or by the user result in one of the foliovmng messoges being output 
to OC and LL: 



MEM. PROT. ERR AT XXXXX 




PRIVILEGE INST. 


AT XXXXX 




NONEXIST. 


ADD. 


AT XXXXX 1 




NONEXIST. 


INST 


AT XXXXX 




UNIMPLE. 


INST. 


AT XXXXX 
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STACK OVERFLOW AT XXXXX 



ARITH. FAULT AT XXXXX 



WDOG TIMER RNOUT AT XXXXX 



MEM. PARITY ERR AT XXXXX 



BREAK ERROR AT XXXXX 



ERRxx ON CAL ^yyyy ID = task name 



Note that the last message results from the simulation of a trap (called Trap X'50' ). This is done by the system 
when a system call cannot be processed because of incorrect parameters being input or an error having occurred 
in the processing of a system call with no error address provided in the caller's FPT. After the message is output, 
the taste will be aborted unless the user has provided a handler for this trap. If the user has provided a handler for 
this trap, the message will rwt be output and the trap handler will be entered. 



TRTN (Trap Return) 

This function returns control following the Instruction which caused a trap ond is employed by the user to return 
control ofter processing o trop. 

At the time of the TRTN coll, the user Temp Stack is set as described previously under "Trap Processing". The 
TRTN function strips the stock of the context placed there by the CAL processing (from the TRTN CAL). It then 
clears the stock by the Trop processor and returns control to the instruction thot follows the one causing the trap. 

TRTY (Trap Retry) 

This function is similar to TRTN, but returns to the instruction causing the trap. 

TEXIT (Trap Exh) 

This function removes the trap information from the user Temp Stack and exits the trapped task. Note that an EXIT 
CAL if executed from a user trap handler would leave this data in the user Temp Stock. 
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9. CP-R TABLE FORMATS 



General System Tables 

The tables shown in the subsection are either not job or task controlled, or relate equal 1/ to both jobs and tasks. 
The Index entries of the tables are not used as true entries. 



550 Prscessor Configuration Tobies 

These are parallel tables that contain data pertaining to ft-ocessor Polling. 



CNFGADDR 



Address 



This contains the address of the processor. 



CNFGTYPE 



Type 



This contains the type code for the processor, 
where 

1 = CPU. 

2 = Memory Interface (MI). 

3 = Processor Interface (PI) . 

4 = MIOP. 

7 = System Unit (SU). 

CNFGSTAT 



Status 



31 -• 

This is used for temporary storoge of processor status and condition codes during the logging process. 

CNFGADDR and CNFGTYPE are initialized by SYSGEN based on :PROC cards. 

These tables ore used to control Processor Polling and ore primarily used to provide information for the error 
tog. 
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Volume Table of G>ntents (VTOC) 

InfonnoHon describing the allocafion of oreos on a private disk pack is maintained in this data structure, which 
begins in sector of the device. Its length depends on the number of areas defined, and is specified in the 
structure. The VTOC may be extended by RADETIT : ADD commands after the original initialization. Such 
extension may proceed to the end of the lost VTOC sector. Additional VTOC sectors can be obtained from the 
first area on the pack only if it is a skipped area. 

Devices with Sysgerwd areas are not private devices. They have no VTOC; ar>d their structural information per- 
manently resides in the Master Dictiorrary. 

The Format of the VTOC follows: 



section wort! J 

« 


, bootstrap \, 

• m 


20 
21 


_ vsn , 


22 


vtoc 


23 
24 


init date 


25 
26 


mod date 


27 


wps 


28 


spt 


29 


tpe 


30 


boo 


31 


eoa 


32 


nds 


33 


naa 


* 


pocket 1 




packet i 


sector n last word 


T 
o 

1 



where 

bootstrap 

VTOC 

vsn 

init date 

mod date 



is a default boostrap program that will type a message indioatii^ this is not a 
system device and then go into on idle state. 

is the character string 'VTOC' that identifies the disk as have been initialized 
and allocated by the :INIT command. 

is the 8 EBCDIC character identification of the disk. It may be any 1 to 8 
character string composed of letters and/or digits, left fustified, space filled. 

is the dote on which the disk pock was originally initialized, in the form 
mmmdd yy . 

is the date on which the allocation of the pock was most recently modified, 
in the form mmmdd yy. 
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Wpt 

spf 
tpe 
boo 

•oa 

nds 



noQ 



packet 1 
packet i 



is the worck per Mctor of fhe disk. 

i< the number of aecton per track of the disk . 

is the number of tracks per c/linder of the disk. 

is the sector number of the first sector on the disk available for data . 
It nonnally is initiollzed to 1 (see nds below). 

is the sector number of the last sector on the disk. 

is the number of directory sectors required to hold the directory. Nonnally 
this will be a 1, meaning oil area allocation information is contained in this, 
the first sector on the disk, and data area may begin on the next sector 
(sector 1). However, if a large number of areos and skipped areas ore 
specified, there may be insufficient space in one sector for the directory. 
For this cose, the directory will be continued on subsequent sectors, nds 
set to indicate this number, and boo set to begin on the next sector. 

is the number of allocated areas. It is the total number of areas currently 
active on the disk. It does not include any "SKIP" ped areas or unallocated 
space at the end of the disk. 

is o group of data describing a contiguous block of sectors of like use. Such 
use may be one of three types: allocated for a file area, skipped, or unallocated 
remainder. There is always one packet describing the unallocated remainder, 
even if its size is zero. There is one packet in addition for each file area 
and each explicitly skipped area on the pack. Packets are grouped by type, 
first file area packets, then skipped area packets, then the unollocated 
remainder packet. Within groups, packets are ordered by ascending start 
address. The format of a packet follows. 



byte 



where 
name 

wp 



it 



1 1 1 

name 


1 1 1 

wp 





it 


tsec 


esec 



word 
1 
2 
3 



is o two-chorocter EBCDIC area name for a file area, x'FFFF' for a skipped area, 
or numeric for the unollocated remainder. 

is the write protection: 

numeric for public; 

1 for background,' 

2 for foreground; 

3 for system; 

4 for lOEX, 

is the initialization type code: 

numeric for OVR; 

1 for FAST; 

2 for ALL. 
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RAO Hh Table (RFD 

Parameters describing the file are taken from the directory entry for the file. These parameters include: 
File name, area index, and account name 
Beginning sector address (relative to beginning of the area) 
Ending sector address (relative to beginning of the area) 
Granule size 
Record size 

File size (number of records) 
Organization (blocked, unblocked, compressed) 

The parameters specifying the physical characteristics of the disk, the boundaries of the disk area, and the Write 
R'otection key are in the Master DictiorKiry. To eruible access to these, the RFT contains a Master Dictionary Index 
(specifying the area). .' 

For manipulation of the file, the RFT contairu the following items: 
Blocking buffer control word address 
Blocking buffer position 

Position within the file (sector last accessed — used for blocked and unblocked) 
Current record number 
Number of DCBs open to the file. 

These parameters are entered in the RFT by the OPEN function. The parallel table concept is used for the RFT, 
and the tables are allocated and initialized as given in Table 2. 



In Table 2: 

File name all 

RFT4 index 

RFT 13 index 

RFT 14 index 

RFT 15 index 

Other index 



Signifies entry not in use. 

Entry contains the total number of RFT entries. 

Entry contair« the maximum number of RFT entries allowed for background use. 

Entry contains the current number of background file entries. 

Entry contains the number of temp files allocated. 

Entries are not used. 



The Job Control Processor builds the RFT entries for the Background Temp Files. These entries ore the first n + 2 in 
the table (n is the number of Xi files), where entry 1 is for the OV file, entry 2 is for the GO file, entry 3 is for 
the XI file, etc. 
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FILE DIRECTORY 



The infbrmatton concerning allocafed files it contained in a file director/ enfry . The file directory entries for files 
in each area are kept in directory sectors within that area , 

The first sector (sector zero) of an area containing files is always the first directory sector. There may be more than 
one directory sector if there are more files than can be held in the first directory sector. The subsequent sectors are 
linked together starting from the first sector. 



% 



The format of all directory sectors is identical. It is 
Index 

1 
2 
3 
4 



Index 



Sectc 



File directory ]D code word 1 



File directory ID code word 2 



File directory entry I 



File directory entry 2 



Word * 
1 
2 
3 
4 
5 



where 
flag 



255 



File directory entry n 



Unused directory entries or urHjsable 
Space at end of sector 



is end of directory indicator. 

means this is the lost directory sector. 

1 means directory contirxied on another sector, 
index is the index to the next unused word in the sector, 
sector depends on the value of FLAG. 

FLAG=0 means this is the next free, unossigned sector in the area. 
FLAG= 1 means this is the sector number of the next directory sector. 
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fil* dlradory code words or* two words containing identifying codes used to vorify rint the sector is actually 
o directory sector. These «M>rds ore: 

X'AAAAAAAA' 
X '55555555' 

There ore two possible formats of the first directory sector which both mean the area contains no files. The first four 
worJs may be all zeroes, which is its corxiition if it has been cleared by SYSGEN (FAST or ALL options), or it has 
been cleared by the iCLEAR command in RADEDIT. 



The first four words may also be 
Index 






Word' 








4 


1 


1 


1 


2 


2 


Code word 1 


3 


3 


Code word 2 


4 



The all zero format will be converted to the normal format when the first file is allocated in the area. 



nbDiraetMY EMty 

A file directory defines arxj describes a file. It contains the information needed by the system to access arxl use the 
file. There is one entry for each file or file extension in an area. The fixed portion of an entry is identical in format 
for all files. It contains the file's name, size, organization and position in the area. 

If the File Account option is not used, entries are 9 words long; if the option is used, the entries are 11 words long. 
An entry will not cross a directory sector boundary. 

The format of on entry Is; 



Index 


1 
2 
3 

4 
5 

6 
7 
8 
9 
10 



F 


I 


L 


E 


N 


A 


M 


E 


FLAGl 


FLAG2 


RESERVED 


LEN 


GSIZE 


RSIZE 


FSIZE 


BOT 


EOT 


XTNT 


ESIZE 


A 


C 


C 


O 


U 


N 


T 


# 



Word ' 
1 
2 

3 
4 

5 
6 

7 
8 
9 
10 
11 
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FLAG2 = 



|S|D|R|\ 


R 


R 


ORG 


1 2 3 4 5 6 7 


1 PRIORITY 











jH 



where 



FILENAME is the 8 character EBCDIC name, left justified and spoce filled, of an active file. A name of 

all birnr/ zeroes indicates a deleted file, and a name of oil binary ones indicates o bad sectors entry (space 
that is not to be allocated toon octive file), 

FLAG1 

R reserved . 

S file was last written sequentially.] 

f Maintained by the monitor; initially set to 0. , 
D file was last written directly. I ' 

FIX if the flag is set, extended files will r>ot be combined into one large file during a RADEDIT 
:SQUEEZE operation. 

ORG file organization (same as in ALLOT CAL). 

00 = unblocked 

01 = blocked 
10 = compressed 

FLAG2 

PRIORITY for files in IS and OS areas, the job's priority; for other files, zeroes. 

RF RF = 1 means resident foreground program if in FP area. 

RF = for all other files and areas. 

LEN number of words in this directory entry. 

GSIZE the granule size, in bytes; used for direct access. 

RSIZE the number of bytes per logical record for UNBLOCKED and BLOCKED files. 

FSIZE the number of records in the file if the file is not extended; the number of records in this extension 
if it is extended. 

EOT I *^^ °^^° relative first and last sector of the file or extension. 

XTNT the extent number indicating the position of this extent in the file. This word is zero if ijis is the 

first or only extent of a file. 

ESIZE the number of sectors to allocate to the f>ext extension if file extension occurs. This word is zero 
if the file is not to be extended. 

ACCOUNT* the 8 character EBCDIC name, left justified and space filled, under which this file was 
allocated. 
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Addres 


Contents 


Initial Value 


Length 


RFTl 


File None 





C^ubleword 


RFT2 


Beginntng Sector Addreu (Relative to area) 


X 


Word 


RFT3 


Ending Sector Address (Relative to area) 


X 


Word 


RFT4 


Granule size (in bytes) 


X 


Hal fword 


RFT5 


Record size (in b/tes) 


X 


Halfword 


RFT6 


File Size (in records for sequential access files; in 
granules for direct access flies) 


X 


Word 


Ri-iy 


Switches 

where 

Bit = 1 means sequentially written 

Bit 1 = 1 means directly written 

Bit 3 = 1 means extents are fixed in size 

Bit 6 = 1 means compressed 

Bit 7 = I meois blocked 


X 


Byte 


RFTS 


Master Dictionary Index 


X 


1 

Byte 


RFT9 


Job Identification 


X 


Byte 


RFTIO 


Blocking Buffer Position (in bytes) 


X 


Halfword 


RFTll 


File Position (in sectors) 


X 


Word 


RFT12 


Current Record Number 


X 


Word 


RFT13 


Number of Open DCBs (total) 


X 


Byte 


RFT14 


If RFTl 7 is nonzero, this entry identifies the job that 
obtained the blocking buffer 


X 


Byte 


RFTl 5 


Number of OPEN bockground DCBs 


X 


Byte 


RFTl 6 


Status (bit on for sequential write, bit 1 on for direct 
access write) 


X 


Byte 


RFTl 7 


Blocking Buffer Control Word Address 


X 


Word 


RFTE# 


Nurr^er of cun-ent extent (extensible files only) 





Halfword 


RFTESZ 


Number of sectors per extent. Derived from extent size 
given when file was allotted. 





Word 


RFTACNT 


EBCDIC disk file account name 


X 


Doubleword 



The RFT is also used (o maintain data controlling access to a tope drive open In blocked mode. The dota in an 
RR entry used for blocked tape is described in Table 2A. It is deliberately simiior to that maintained for a 
blocked file, so that common processing is more frequently possible. 
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Table 3. RAD Fit* Tabic Allocation for a Blocic Tape 



Address 


Contontro! 


RRl 


The device name as in DCT16: 
' NL yyndd' 


RFT2 


(not used) 


RFT3 


(not used) 


RR4 


Size in bytes of current block on input 


RFT5 


Logical record size in bytes 


RR6 


(not used) 


RFT7 


Switches, where ' 
Bits 0,1 = 10 always (indicates sequential use) 
Bit 6 =1 means compressed 
Bit 7 =1 means blocked 


RFT8 


OCT index for drive 


RIT9 


Job ID (maintained but not used) 


RFTIO 


Blocking buffer position in bytes 


RITll 


(not used) 


RFT12 


Current record number (maintained but not used) 


RFT13 


Number of open DCBs (total) 


RFT14 


Job ID of job whidi obtained the current blocking buffer 


RFT15 


Number of open background DCBs (maintained but not used) 


RFT16 


Bit = 1 indicates the tape has been written since it was opened. 


RFTl/ 


Blocking buffer control word oddress 


RFF' 


(not used) 


RFTSZ 


(not used) 


RFTACNT 


(not used) 



Device Control Table (DCT) 

DCT Format * 

The Device Control Table (DCT) is composed of several porallel subtables (see Table 4). The various entries 
associated with a given device are accessed using the DCT index of the device and addressing the tables 
DCTI through DCT19. For example DCT1 would be accessed by 

LHR,R DCT1,X 
DCT2 would be occessed by 

LB,R DCT2,X 

where Register X contains the DCT index value for the device. 
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Table 4. DCT Subtable Foniwts 



Subtable 
Address 


Contents 


Length 


DCTI 


Active I/O addrsss For device 


^ 




Halfword 


DCTIP 


Primary (P) device address 


» 





lOP 





Device 




Halfword 


DCTIA 


Alternate (A) device address 


. 


2 3 78 9 15 


Halfword 


DCT2 


Channel Information Table Index - A pointer to the CIT entry for the 
channel associated with the device. 


Byte 


DCT3 


Bit = 1 means output is legal for this device. 

Bit 1 = 1 means input is legal for this device. 

Bit 2 = 1 means device has been marked down and is inoperative. 

Bit 3 = 1 means device timed out. 

Bit 4 = 1 means SIO has failed. 

Bit 5 = 1 means the \/0 has aborted. 

Bits 6/7 = 00 - "Busy" both subchannels. 

= 01 - Use the P subchannel only. 

= 10 - Use the A subchannel only. 

= 11- Use either subchannel. 


Byte 


DCT4 


Device Type 

= NO(IOEX) 14= DP 

1 = TY 15 = Reserved 

2 = PR 16 = 9T (550) 

3 = PP 17 = Reserved 

4 = CR 18 = Special user devices 
5=CP 19 = LD 

6 = LP 

7 = DC 

8 = 9T 
9=7T 

10 = CP (Low Cost) 

11 = LP (Low Cost) 

12 = DP (7242/46, 7270) 

13 =PL 


Byte 


DCT5 


Status Switches 

Bit = device busy. 

Bit 1 = waiting for cleanup. 

Bit 2 = between inseparable operations. 

Bit 3 = data being transferred. 


Byte 
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ToUa 4. OCT SubtabU Fwimn (eont. ) 



Subtable 
Address 


Contents 


Length 


DCT5 
(conf. ) 


Bit 4 = error message given (key-in pending). 

Bit 5 = deferred SIO pending 

Bit 6 = SIO was given while device was in manual mode. 

Bit 7 = Unqueoed lOEX on this device. 




DCT6 


Pointer to queue entry representing current request. 


Byte 


DCT7 


Command list doubleword address. 


Halfword 


DCT8 


Handler start address. 


Word 


DCT9 


Handler cleanup address. 


Word 


DCTIO 


Device activity count (used for (/O Service reentrance testing). 


Word 


DCT11 


Timeout value (used to abort request when no interrupt occurs). 


Word 


DCTI2 


AIO status (or end oction control word for unqueued lOEX). 


Word 


DCT13 


TDV status. 


Doubleword 


DCT14 


STOPIO (background only) count. 


Byte 


DCT15 


STOPIO (all system ]/0) count. 


Byte 


DCT16 


The five-character device name (e.g. , CRA03) preceded by the three 
characten "©11". 


Doubleword 


DCT17 


Retry function code (for error recovery) and continuation code. 


Halfword 


DCT19 


AIO condition codes. 


Byte 


DCT20 


TDV condition codes. 


Byte 


DCT20A 


TIO condition codes. 


Byte 


DCT21 


TIO status. 


Halfword 


DCTSDBUF 


Side-buffer address. 


Word 


DCTMOD 


Device model number, EBCDIC. 


Word 


DCTMODX 


Device model number, decimal. 


Halfvprd 


DCT'ERR 


Number of I/O errors. 


Word 


DCT'IO 


Number of l/D starts. 


Word 


DCTJID 


Job ID for reserved devices. 


Byte 
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Table 4. DCT Subtoble Formats (cant.) 



Subtable 
Address 


Contents 


Length 


DCTTJE 


TJE flogs (see TJE Chapter) 


Byte 


DCTSYMl 


Bit = 1 means the device is on-line. Sytnbiont activity is to start when 
possible, is active or is in o suspended state. The bit is set by 
the Syyndd, 1 key-in or the output cooperative. The bit is reset 
by the symbiont task when o IFIN card is read. The bit may also 
by reset by a !JOB cord if the Syyndd, L or Syyndd, T key-in is 
in effect. 

Bit 1 = 1 means the device is locked out. Symbiont I/O will cease when the 
current job has completed. If exclusive use of the device has been 
obtained by the symbiont task, the device will be released. 

The Syyndd, L key-in sets this bit. The Syyndd,! key-in will 
reset the bit and start symbiont I/O on the device. 


Byte 




Bit 2 = 1 means the same as bit 1 except that the device is removed from 
use by the symbionts when the current job has completed if it 
is not dedicated to symbionts. 


^/ 




The "T" bit is set by the Syyndd, T key-in. The Syyndd, I key-in 
will reset the bit, ocquire the device (if necessary), and stort 
symbiont I/O on the device. 






Bit 3 = 1 means symbiont activity has been suspended on this device. The bit 
is set by the Syyndd, S key-in. The C, B or R options of the Syyndd 
key-in will reset the bit ond restart symbiont I/O on the device. 






Bit 4 = 1 means the device was dedicated to symbionts at SYSGB^I. This bit 
is set by SYS GEN and is never reset. 






Bit 5 = 1 means the device is in use by symbionts. If the device is dedicated 

to symbionts, the bit is set by SYSGEN and will not be reset. Other- 
wise the bit is set by the Syyndd, I key-in and reset by the symbiont 
task if the "T" bit is set when the current symbiont file has completed. 






Bit 6 = 1 means the current Job is to be released. Symbiont activity for the 
specified device will be terminated and associated symbiont files 
will bedeleted. 






Bit 7 = 1 means save the current output file and terminate. What remains of 
the file is returned to the output queue and the symbiont is locked 
immediately. The entire file is saved if the symbiont device is not 
in DO mode. 




DCTSYM2 


The address of a TSPACE block which contains the address of the context block 
for a symbiont device. 

This entry is zero if the device is not in use by symbionts. 


Word 


DCTSYM3 


Bit 7 = 1 means the operator has requested that on output symbiont file be 
rewound (R) or backspaced (B). 


Byt^ 


DCTRBM 


Bit = 1 means the device is being requested by the SYMBIONT task. 

Bit 1 = T means the device is in use by the MEDIA task. When the device is 
no longer needed by MEDIA, this bit will be reset If bit is set. 
This will allow the symbiont task to obtain the device. 


Byte 
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Tobl* 4/ DCT Subtable Fonnats (cent.) 



Subtable 
Address 


Gmtvnts 


Length 


DaRBM 


Bit 2 = 1 means the device is in use by the symbiont task. When the device 
is no longer needed by SYMBIONTS, this bit will be reset if bit 3 
fs set. This will allow the MEDIA task to obtain the device. 

Bit 3 = 1 means the device is being requested by the MEDIA task. 

Bit 6 = 1 means DED DPhdd,R key-in is in effect. 


Byte 


DaCD 


The DCT index of o device which cannot be operated concunently . Used 
only for 3243 devices that shore arm position mechanism . 


Byte 


oaoisci 


The disk type index. Used only for disk devices. This points to disk char- 
octeristics in the DISC tables. 


Byte 


oaocB 


Number of DCBs OPEN h> this device. 


Byte 


DaRFT 


Nonzero only for a tope drive open in blocked mode. If DCTRFT = x '80' 
an RFT entry is not currently assigned. If DCTRF + x '80' , it is the index 
of the RFT entry containing the blocking controls. 


Byte 



SYSGEN DCT Considerotion 

System Generation allocates the space for the DCT subtobies. Initial values are defined for the following entries 
(all other entries ore initially zero): 

DCT1 As specified by :DEVICE command 

DCTIP As specified by :DEVICE and :CHAN commands. 

DCTIA As specined by -.DEVICE and K;HAN commands. 

DCT2 As specified by .-DEVICE and <:HAN commands. 

DCT3 As specified by -.DEVICE command. 

DCT4 As specified by :DEVICE command. 

DCT7 Pointer to SYSGEN allocated space for command list. 

DCT14 1 if (DEDICATE, F); otherwise, zero. 

DCT15 1 if (DEDICATE, X); otherwise, zero. 

DCT16 " © I lyyndd" where yyndd comes from the :DEVICE command. 

DCTDEBUG External interrupt location minum X'4F'. (Used for BREAK logic.) 

DCTSDBUG Pointer to side buffer. 

DCTMOD EBCDIC model number. 

DCTMODX Decimal model number. 

DCTJID X'FF' if reserved device; otherwise, zero. 

DCTCD Initialized for adjacent 3243 devices. ^ 

The index entry of each subtable is not used as a true table entry because of the nature of the BDR instruction. 

DCTl, index 0, contairu the number of non-TJE devices. 

DCT7, index 0, contoim the total number of devices including TJE devices. 

DCT7 contains the DW address of space allocated by SYSGEN for the command list for each device. These areas are 
on a doubleword boundary. 
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OlSCTi 



The DISC tables are a series of parallel subtobles with an entry for each different disk t/pe. They ore built by 
SVSGEN based on :DEVICE commands. The index value used with these tables is obtained from DCTDISCI. 



Address Usage 

DISCi^SPT Number of sectors per trock 

DISCNWPS Number of words per sector 

DISCMAXS Lost relative sector number 

DISCMINS First relative sector number 

DISCSSFT Sector number shift to build seek address 

DISCTSFT Track number shift to build seek address 

DISCCSFT Cylinder number shift to build seek address 

DISCNTPC Number of tracb per cylinder 

DISCNCYL Numberof cylinders total 



Size 

Byte 

Holfword 

Word 

Word 

Byte 

Byte 

Byte 

Holfword 

Holfword 



diannel Information Tililo (CIT) 

The Channel Information Table consists of parallel subtobles, each with on entry per channel. There is one channel 
per controller connected to a MIOP, and one channel per SIOP. The "channel" concept is used since there cannot 
be more than one data transfer operotion in process per channel. I/O device requests are queued on a per-channel 
basis. System Generatbn allocates these subtobles as shown below: 

Size 

Byte 

Byte 

Byte 

Bit - Subchannel P busy 

Bit 1 - Subchannel A busy 

Bit 2 - Subchannel P held 

Bit 3 - Subchannel A held 

Kt 4 - Dual-access channel 

Bit 5 - Preferred channel (0 = P; 1 = A) 

CITS Holding Request Q pointer for subchannel P Byte 

CIT6 Holding Request Q pointer for subchannel A Byte 



Address 


Usage 


CIT1 


Queue head 


CIT2 


Queue tail 


CIT3 


Switches: 



The CIT subtable entries are accessed by using 

LB, R CITN, X 

where Register X contains the index (I-N), 
The index entry is not used because of the nature of the BDR instruction. ^ 

I/O QiMue Table (lOQ) 

The I/O Queue Table consists of parallel subtobles each with an entry per queue entry. These tables are accessed 
in the same manner as OCT and QT by using an index. As is true for DCT and CIT, the index entry of each sub- 
table is not used os a true queue entry. 

System Generation allocates aid initializes the lOQ tables as given in Table 5. 
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Notice that IOQ2 index i> initialized by SY5GEN. This byte i> wed and maintained by the I/O syitem os the 
"firee entry pool" pointer. By initializing IOQ2as shown, SVSGEN links all entries into this pool. 

IOQ1 index is initialized by SYSGEN to the maximum number of queue entries allowed to the background. 

IOQ3 index is initialized to 0, since this byte is used and maintained by the I/O system as the current number of 
queue entries in use by background. IOQ4 (index 0) is the total number of lOQ entries. 



Table 5, lOQ Allocation and Initialization 



Address 


Contents 


Initial Value 


Length 


lOQl 


Backward Link 





Byte 


IOQ2 


Forword Link 


Entry M contains M + 1 for 

N > M > 0. intry N contains 0. 

N is the number of queue entries. 


Byte; 


IOQ3 


Switches 

Bit 0= 1 -request busy. 

Bit = 5-7: 

= 000 —Both subchannels required. 
= 001 -Subchannel Ponly. 
= 010 -Subchannel A only. 
= 100 -Use either subchannel. 





Byte 


IOQ4 


Function Code (:DOT table index) 





Byte 


IOQ5 


Current Function Step 





Byte 


IOQ7 


Device Index 





Byte 


IOQ8 


Bits 0, 1=0- byte address of 
buffer. 

Bit = 1 - DW address of a data 

chain. 





Word 




Bit 1 = 1 - OW address of command 
chain (Queued lOEX). 




-3^ 


I0Q9 


I0Q8 bitsO, 1 =0- Byte count of buffer. 

IOQ8 bit = 1 - number of DWs in 
data chain. 

IOQ8 bit 1 = 1 - timeout value for 
command chain. 





Halfword 
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Table 5.' ICX3 AlloeaHon and Initialization (cent. ) 



Address 



Contents 



Initial Value 



Length 



lOQlO 



AAoximum retry Count 



Byte 



I0Q11 



Retry Count 



Byte 



I0Q12 



Seek Address 



Word 



IOQ13 



End-Action data 

Word 1 

Byte is cleanup code where value: 

1 = Pbst stotus in FPT. 

2 = Post status in DCB. 

3 = Transfer to address specified 

In bits 15 -31. 

4 = No end action (only available 

to the monitor). 

Bit 8 = control device read. 

Bit 9 = end action data in word 2. 

Bits 15-31 = FPT completion-stotus 
word address for cleanup-code 1; 
DCB address for cleanup-code 2. 

Word 2 



If word 2 = 0, parameter not present. 

If byte = XVF', bits 15-31 ore 
user's signal address. 

If byte = X'FF', bits 15-31 are 
user's endoction address. 

If word 2/0, and byte / X'FF' or 
X'7F', byte = end-action interrupt 
group code, byte 1 = interrupt address 
X'4F', bits 15-31 contain level bit 
for interrupt. 



Doubleword 



lOQU 



Priority 



Byte:* 



10QEC6 



ECB Pointer 



Word 



lOQ ERROR 



Error-log buffer pointer 



Word 
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Since the 0th entry is never u»ed in subtobles v^hote entires are words or doublewords, it is not necessary to allocate 
space for this entry. fF the 2N words for IOQI3 ore alJocated beginning ot location ALPHA, IOQI3 is given value 
ALPHA-2. Thus, IOQ13 may actually point into another table but presents no problem because IOQ13 wiN never 
be accessed with index 0. 

It should be noted that none of the subtables need be positioned in an/ particular relationship to each other. They 
may be allocated anywhere in core with the restriction that Ooubleword Tabels being on doubleword boundaries. 



Bloclung Buffers 

Blocking buffers are 256-word buffers that ore directly occessible only by the monitor. They are primarily used for 
blocked and compressed file t/O and for accessing file directories in OPEN/CLOSE service colls. 

Each blocking buffer pool is controlled by means of a Blocking Buffer Control Word Table (BBCWT) that contains a 
one-word entry for each blocking buffer. The BBCWT has the format shown below. ' 



Number of blocking buffers 



Blocking buffer 1 entry 
Blocking buffer 2 entry 



Blocking Buffer n entry 



Each entry is of the form 



RFT 


W 





Blocking buffer start 
address 



7 8 9 



14 15 



31 



where 



RFT is the index of the RFT entry for the file currently using this buffer. signifies that the buffer jf not 
in use. X'FF' means the buffer is in use, but rwt by any particular File. 



W 



is set if the blocking buffer has been written in. 



IVimary and secondary tasks are kept in different blocking buffer pools and, therefore, hove different BBCW tables. 
K:FPOOL contains a real address pointer to the BBCW table used by all primary tasks in the system. The number and 
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locaf ion of blocking buffers available to primary talks Is determined at SYSGEN by the FFPOOL parameter and 
cannot be changed except by SYSGEN. The primary-task blocking buffer structure is shown below: 



K:FPOOL 



N 


Entry 1 


Entry 2 



Entry N 



Blocking 
buffer 1 



Blocking 
buffer 2 



BBCWT 




In addition, a maximum of twelve pages will be mode available to each job for blocking buffers from the 
job's Reserved Pages. Secondary tasks will be allocated blocking buffers from these pages as they are needed. 
The BBCW table is kept in the job's JCB and is constructed and maintained as blocking buffers are required 
and released. 



Master Dictiomry 

The Moster Dictionary contains all the infarmation needed to define an area for use by the system. It consists of six 
parallel subtables which are allocated and initialized by SYSGEN from information given by the :RESERVE and 
: DEVICE commands. 



Ill 



Tlw anfrin for an orao an oc c > « »J by th» ana tndax. This index corrMpondt to the position of the area's none in 
the MDNAME table. The tables are: 



Subtoble Nome 


G>ntents 


Length 


MONAME 


The two EBCDIC character name of the area. 


Halfword 


MDFl^G 








Byte 


Control flags 


A 


^« 


R 


R 


wp 




12 3 4 5 6 7 
where: 

A 1 means the area is defined and allocated. 

R Reserved. 

wp The write protection assigned to the area. 

P Public (no protection) 

1 B Background 

2 F Foreground 

3 S System only without "SY" keyin 
5 X lOEX 




MDOai 


The index to the DCT table for the device on which the area resides. 


Byte 


MDBOA 


The start sector address of the area relative to sector zero of the disk. 


Vtord 


MDEOA 


The end sector oeWress of the area relotive to sector zero of the disk. 


Word 


MDDISCI 


The index to the DISC table for the device on which the area resides. 


Byte 


MDVSN 


|The Volume Serial Number of the dispack If the area is on a 
'private pack. 


Double- 
word 



The Master Dictionary b occessoble to user programs through the following K: celts: 

Contents 

Address of MDNAME table. Byte contains the number of entries allocated 
in the tables. 

Address of MDFLAG table. 

Address of MDBOA table. 

Address of MDEOA table. 

Address of MDDCTI table. 

The highest valid index for the Dictionary. 

A sample of a Master Dictionary created by a SYSGEN in which the stcndard areas SP, FP, ..., D1, plus data 
areas D2 and D3 symbiont areas IS and OS, and three user defined oreas were specified as: 

Comments 



Fixed areas 



isjame 


Location 


KiMDNAME 


X'212' 


K:MASTD 


X'14A' 


K:MDBOA 


X'218' 


K:MDEOA 


X'2i9' 


K:MDDCTI 


X'21A' 


K:NUMDA 


X'UB' 



Index 


Name 


MDFLAG 







SP 


A 


wp = 3 (System) 


1 


FP 


A 


wp = 3 


2 


BP 


A 


wp = 3 


3 


BT 


A 


wp = 1 (Background) 


4 


XA 


A 


wp = 5 (lOEX) 


5 


CK 


A 


wp = 3 


6 


D1 


A 


wp=1 


7 


D2 


A 


wp = 2 (Foreground) 


8 


D3 


A 


wp = (Public) 


9 


IS 


A 


wp=11 
wp = 1 


10 


OS 


A 


11 


U1 


A 


wp = 


12 


U2 


A 


wp = 


13 


U3 


A 


wp = l] 



IS and OS symbiont areas 



User defined area names specified during 
SYSGEN 
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OrwatMMl UM TaUt (OPIBS) 

The Operational Label table it a parallel table with the format 



Z Z 



OPLBSl 

78 

where ZZ is the operational label in EBCDIC 



holfword 



15 



OPLBS2 



Byte 



where Y is the OCT or RFT index of the permanent assignment (bit = if DCT index; bit = 1 if RFT index). 
There is an OPLBS2 table for each octive job, which is accessed by on address pointer in the associated job's JCB. 
The OPLBS2 table for the CP-R job contains the permanent assignment of each operational label. When a new job 
is activated, the OPLBS2 table it receives is a copy of the OPLBS2 table for the CP-R job at that time. The number 
of entries in OPLBS is in the first holfword of OPLBSl. 



OVLOAO Tabk (for CP-R Oviriiys Only) 

The OVLOAD Table is a parallel table with the format 



OVLOADl 



OVLOAD2 



Byte Size of Overlay 



holfword 



15 



Z Z Z Z 



word 



31 



where ZZZZ = first four characters of name of overlay in EBCDIC 
OVLOAD3 



Granule Number 



byte 



7 

where the specified Granule Number is in the file CP-R. 

The number of entries in OVLOAD is in first holfword of OVLOADl. 

Write Lock Tabia (WLOCK) 

WLOCK contains write locks for the current core allocation. The toble contains one entry for each real page of 
memory. 



WLOCK +0 
+1 
+2 



16 





No. entries for allocoted core 


WL 


WL 


• • • 


WL 


WL 


. . . 


. 


WL 


WL 


\ 



01 234 



1516 



31 
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Cr'R DM|MlClMf LMM 
RDLIPRIO 

RDLISTI 

RDLITCB 

RDLIADD 



(ROU) 



RDLILVLl 



RDLIGRP1 



RDLILVL2 



RDLIGRP2 



friorify 





7 


STI Index 



STI Index 


TCB Address 



78 



RDL Interrupt location 


15 


Level Bits (RDL) 


15 


000101110000 


Group 


15 


Level Bits (STL) 


15 


oooionioooo 


GRP 



Zero if nul I 



Zero if null 



31 



15 



where 



RDLIPRIO is the priority, in internal byte format, to which RDL is connected. This is the RDL inter- 
rupt location X'4F'. Entry of RDLIPRIO is 0. Priority is set by SYSGEN and is not altered dur- 
ing execution. 

RDLISTI is the task ID of the highest priority task operating within the level . Entry zero contains the over- 
all STI head of the dispatcher chain. Each subsequent entry contoins the subchain head that enters the 
dispatcher chain at the first task within the level. All entries are set to the firtt permanent CP-R task 
STI by SYSGEN. 

RDLITCB is the STI index and TCB address for the dispatcher level. 

RDLIADD is the core address of the RDL interrupt location in which to store the XPSD. It is set by SYSGEN 
and is not altered during execution. RDLIADD entry contains the number of RDLI entries. 

RDLILVLl are the level bits for the RDL to be used on Write Direct commands. 

RDLIGRPl is the address field for a Write Direct interrupt control to trigger the RDL, including the trigger 
and group codes. 

RDLILVL2, RDLIGRP2 are the level and group codas to trigger STL in the same format as RDLILVLl and 
RDLIGRPl. All level and group codes are set by SYSGEN and are not altered during execution. 
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TiMt (ACT) 



ftjrpos6 

The AET provides a record of the enqueues done for confrolled items by t/stem services. It is used in conjunction 
with the Enqueue Definition table to control aceecs to enqueued Items. 

Type 

Serial in the JCB or linked from the JCB depending on space requirements for job level ENQs. For task level ENQs 
linked from the LMI. Low-memory cell KJAET contains the number of nonsharoble devices in the Device Control 
table. This is used as the default number of AET entries allowed. 

Logical Access 

The AET is located via a pointer in a fixed position in the JCB or through a pointer in the LMI. Byte zero of the 
pointer word contains the number of words in AET. 



Overview of Usage 

The job level AET table may be included in the JCB fixed portion or may be acquired separately from TSPACE and 
linked from the JCB depertding on space requirements at ihe time the JCB is created. The task level AET is acquired 
from TSPACE at task initiation otkI is linked from the LMI. Byte zero of the pointer word contains the number of 
words in the AET and bytes 1-3 contain the real address of the start of the table. 

At task or job termination, a flag in the JCB will indicate which usage applies and wilt release spoce appropriately. 

Associotive Enqueue Toble (AET) Format 
word 



word 1 



Flogs 


EDT Address 


78 




31 


Job ID 


ECB Address 



78 



31 



where 



Flags: bit = 1 Job level AET 

= Task level AET 

bit 1 = 1 System level EDT 

= Job level EDT 

bit 2 = 1 ECB is for immediate enqueue 

= ECB is for an asynchronous enqueue 

bit 3 = 1 Sharable enqueue 

= Exclusive enqueue 

bit 4 = 1 Enqueue gronted 

= Enqueue pending 

bit 5 = 1 AET entry in use 

= AET entry free 

bit 6 = 1 Dequeue CAL in progress 

bit 7 = 1 Enqueue CAL in progress 
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ECB Address The location of the ECB created to wait for an ENQ. At checic time, this address is set to 
zero. ENQ is set to I if the post it nornxil . The AET is freed if the post is not normal . 

EDT Address The location of the EDT of the controlled item which wos enqueued. 

Job ID The identification of the job in which the item was enqueued. 

Rnl MtnerY Pirtilien Table (RMPT) 

hirpose 

The RMPT is used to describe and control all real memory resources. It contains one entry for each defined memory 
partition. 



Type 

Serial consecutive doubleword entries in CP~R table space. 



Logical Access 

The RMPT is pointed to by the system pointer K:RMPT. The RMPT starts on a doubleword boundary. The number 
of entries in the RMPT is contained in byte of K:RMPT. The index entry is not used as a table entry. 



Overview of Usoge 

The RMPT space is allocated, and partition entries are initially set by SYSGEN. 



Real Memory Partition Table (RMPT) Format 



n " 


Partition FWA 


U 


u 


n " 


Partition LWA 


u 


u 





7 


8 




31 



Doubleword 



where Partition FWA and LWA define the real address limits of the partition. 

pHtition Pwrtir Tabic (PPTJ 

ftjrpose 

Describes IVirtition attributes and points to Partition Control Tables. 

Type 



Serial consecutive word entries in CP-R table space. Parallel to RMPT. 



Logical Access 

The PPT is pointed to from K:PPT. Entries are located by index correspondence to on entry in the RMPT. Alter- 
natively, a search can be mode on the type field of the flog byte to identify a particular partition type. The number 
of table entries is contained in byte of K:RMPT. The index entry is not used as a true entry. 
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Overview of Usage 

The PPT !s accessed each time a request for memory in a preferred partition is made. Additionally this table in 
conjunction with the RMPT is used to verify thatprimary load moduleswill be loaded into Foreground Private Partitions. 

Partition Pbinter Toble (PPT) Format 



Flog 



Value 



34 



PCT address 



8 



Word 



31 



where 

Flag contains control information as follows: 

Bits 

12 3 

X X X = perferred partition is no STM mode. 
X X X 1 = preferred partition is STM mode . 

Value indicates the type of partition according to values as follows: / 

- System (not allocatable) 

1 - Private 

2 - Foreground mailbox 

3 - Foreground blocking buffers 

4 - Preferred 

5 - Secondary Task Memory 

6 - 15 - Not used 

PCT oddress is the address of the partition's control table. It has a value if the partition does not have 

a pa. 



Pirtitnn Ccntrol Table (PCT) 

[\jrpose 

The PCT serves as a repository of information used in controlling allocation and access into Foreground Preferred 
and STM Memory Partition. One PCT exists for each of these defined memory partitions. The PCT also contains 
chain headers for controlling free pages in Secondary Task Memory (STM). 

Type 

Serial table located in CP-R table space. 

Logical Access 

Each PCT toble is pointed to from the Partition Pbinter Toble (PPT). Information in the PCT identifies the pages in 
the partition that hove been allocated and those that are free, or points to chain headers that control STM. 

Overview of Usage 



The PCT is allocated by SYSGEN based on the "size" porameter on the PMEM option of the :RESERVE Command. 
The STM chain headers are filled in at system boot time when the free pages are established. 

ftartitlon Control Table (PCT) Format -'^ 

The PCT has one of two formats. If the PCT contains an STM chain header, the format is 



WordO 
Word 1 



Chain Head, Free Pages 



Number of Free Pages 



31 
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otharwiM, the PCT hen the formaf 



Word 


1 

2 

3 
4 

5 



3+n 



No. pages 



Flogs 



Flogs 



Flogs 



_ NOP 
AWM. RO" 



Poge ollocation mop 



78 



Page 1 locator 



Start page 



Page 2 locator 



MMTPAGES 



Page n locator 



23 '24 



31 



whe 



WordO 

No. pages is a count of the number of pages In the partition. Set by SYSGEN. 

Start page is the page address of the start of this partition. Set by SYSGEN. 

Word 1 Is an instruction used to maintain the total number of free pages. 

Words 2 and 3 

Page allocation map is a dcubleword bit table used to indicate the availability of a given page in this par- 
tition. A value of indicates that the page is available, a value of 1, that the page has been a I located. 
Bit represents the first page in the partition, bit 1 the second page, etc. 

This entry is initialized to all zeros by SYSGEN. 

Words 4 through (3+n) 

Page locator flags: 

Bit - always 0. 

Bit 1 - (P/S) set to 1 if this page acquired by primary task; set to if secondary tosk. 

Bit 2 - (S) set to 1 if memory management is swapping this page for smne other real page; set to O^if swap- 
ping is not in progress. 

Bit 3 - (STM) set to 1 if the page has been released to secondary Task Management; if not. 

Bits 4-7 - Unused. 

Page locator if P/S (bit 1)is 0, this ts the real wordaddressof the segment descriptorwhere this page isalloco- 
ted. If P/S is 1, this is theLMIindex of the primary load module that acquired this page. These entries are 
used by memory management in swapping real pages and by task termination when freeing real memory. 
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I/O LmIi Tabb (iOLOCK) 



i\irpose 



The table maintains a count of the number of ongoing ]/0 activities in each page of real memory. It is used by 
Memory Management to prevent roll-«ut of I/O active pages. 



Type 



Serial consecutive entries in CP-R table space. 



Logical Access 



The location of lOLCXIK Is established by SYSGEN via DEF. The Real Memory Rage Number is used as an index 
to find the corresponding lock entry. 

Overview of Usage ', 

The lOLCXIK table, created by SYSGEN, reserves sufficient space to accommodate n one-byte entries, where n is 
the number of real memory pages specified on the CORE option of the iMONITOR Command. 

Prior to calling IOCS, File Management increments by 1 the IOLOCK entry that corresponds to the real page(s) 
that will be effected by the V'O operation. At POST time the entry will be decremented by 1. 

Prior to rolling out a segment Memory Management inspects the IOLOCK table so as not to roll out those pages 
with ongoing I/O activity. 



I/OLock Table (IOLOCK) Formot 



PogeO 


Page 1 


Page 2 


Page 3 


Page 4 


Page 5 


Page 6 


Page? 


Page 8 


Page 9 


Page 10 


Page 11 


Page 12 


Page 13 


Page 14 


Page 15 


-p 






i^ 


Page n-1 1 


Page n-10 


Poge n-9 


Poge n-8 


Page n-7 


Page n-6 


Page n-5 


Poge n-4 


Poge n-3 


Page n-2 


Page n-1 


Poge n 



where n is the number of real memory pages. 



TMk-Controlled Tables 



The tables shown in the subsection are task controlled, i.e., contain task related data. Rgure 44 shows the over- 
all relationship of the task-controlled tables and data. 
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PCJPOINT 



Flags 



^H 



CALLOC 




UTS 



CCB 



L { OVLOAD I 
-p j M:SL 



DCBTAB 



TCBPOINT 



E>H 



Interrupt LOC 



&>- 



^ 



STI 



To$k entry 



TCB 



n 



STCB 




DCB 



DC 6 



H5> 



RDLi 
(CP-R 
Dispotcher 
Level Inventory) 



OVI 



Overlay entry 
In monitor 



AC'I 



AST 



SDT's 



TSPACE 



TSPACE 



K:RTS 



K:EDT 



EDTUHEDTU^etc. 



K:SDT 



]— - SDT ->JsDT[— etc. 



K:RWPT 




RMPT 

(Real Memory 

ftirtitton Table) 




— 







K-.PPT 




PPT 

Partition 

Pointer 

Table 











PCT's 



task 
chains 






^ 



LMI 



Lood 

module 

•ntry 



AET 



S-ECB 



R-ECB 



EDTi 
ECBs 

— «-ehoin 
s^ r tasks 



etc , . 
r-chotn 



etc 



ls> 



rE> 



^T^ 



$-tosks 




s_>or t' or 
pl^?primory publibt 



JSDTJ— IsDTI— etc 




[u> Address of STCB 
[^> STI index (Tosk ID) 
[r> SJI index (Job ID) 

on an arrow indicates an entry other than the orte shown 



[j^ Interrupt ioc 
[c> CAL trap Ioc 
[p> Address of PCB 



inp LMI index (Load Module ID) 
[pi> LMI index (Publib ID) 
[jc> JCB Address 



Figure 44. Relotionship of Task Controlled Data 
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(LMI) 

LMIMAXR (LMI9) entry contains the number of entries in the LMI tables. 



Usage for a Progrom 



Usage for a PUBLIB 



LAAINAME (LMIl) 



(Doubleword) 



Load module 



name 



31 



LMIPCB, LMIFWA (LMI2) 




(Word) 


Flogs 


PCB Address/fwo 


7 


8 




31 



LMIJID, LMILWA (LMI3) 




(Word) 


Job ID 


Iwo 


7 


8 




31 



7 8 



LMIPL, LMICTXT (LMI4) 












(Word) 


PL1 


PL2 


PL3 


PL4 


7 


8 


15 


16 




23 


24 


31 



LMISTAT (LMI5) (Halfword) 



Flags 



15 



LMISDT (LMI6) 




(Word) 


Tosk ID 






7 


8 


31 



Publib 



name 



Flags 


A « 









7 


8 


15 



31 



r\ m, '^ 


fwo 





u 





7 8 




31 






Ivra 



31 



31 



31 
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Uiofle for o IVogfon 



Uwge for o PUBLIB 



LA«RTS (LMI7) 






(Doubleword) 


RTS Stack Control DW 









15 


16 


31 



LMIMAXS (LM18) (Byte) 



S-ECB 



— 



31 



LMIMAXR, LMIUSE (LMI9) (Byte) 



R-ECB 



Users 



LMIAET 









7 
(Word) 


AETS 


AET Address 





7 


6 




31 



LMISECB 








(Word) 


Count 


S-ECB Head 





7 


8 




31 



LMIRECB 








(Word) 


Count 


R-ECB Head 





7 


8 




31 



LMIRFT 








(Word) 


Size 


Address of File Activity Table 





7 


8 




31 



31 



31 



31 



31 
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LA^NAME (LMIl) 

For liter load modules - Task Nkime: User load module name, a* received on the INIT or RUN call. 

For Publibs— Publib Name: The file name of the Publib load module. The task or Publib name is stored by task 
ini.iafion and remains unaltered durirtg task execution. 

LMIPCB, LMIFWA (LM12) 



Flags: 




Jit 


Meaning if Set (1) 





Task has CP-R priveleges 


1 


Task is background 


2 


Task is secondary 


3 


Task IS mapped 


4-6 


Not used 


7 


Task is running with DEBUG 


PCBAddress/fwo: 



For user load modules — PCS Address: The location of the load module's PCB. This is also the first word address of 
the toad module. The PCB address is stored by task initialization and remains unaltered during the task's execution. 
When central CONNECTS ore requested to a primary load module, the PCB address and flogs in the LAAI entry ore 
used for the TCB. The fwa is used for memory management during later task loads. 

For Publibs — fwa: The first word address of the Publib load module. Fwa is set by task initiation when the Publib 
is loaded and remains unaltered during the Publib life. 

LMIJID, LMILWA (LMI3) 

Forprimary load modules —Job ID: The identification ofthe job to which the load module belongs; also the index of the 
job's entry in SJI. Load modules can only exist once within a job. This value is set by task initiation and remains 
unaltered during task execution. 

For both User and Publib Load Modules — Iwo: The last locotion used. The Iwa is set by task initiation and remains 
unaltered during task execution. It is used to manage memory during later task loads. 

LMIPL, LMICTXT (LMI4) 

For primary load modules — PL 1, PL2, PL3, and PL4; These bytes each contain a load module ID (index into LMI) of 
the Publibs being used by the load module. A zero indicates that the byte is not used. They ore set by task initia- 
tion, remain unaltered during task execution, and are used by task termination to decrement Publib use counts and 
eventually release Publibs. 

LMI STAT (LMI5) 

Status Flogs: ^ 

Bit Meaning if Set (1) 

Termination has begun (TTFINAL entered). 

1 Connected to CAL2. 

2 Connected to CAL3. 

3 Connected to CAL4. 
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BTt Meoninfl !f Set (1) 

4 Background load module. 

5 Secondary (dispatcher scheduled) load module. 

6 Abnormal term! not! on requested. 

7 For a module being loaded, load was requested by INIT, not RUN. 

8 Load module is being loaded. 

9 PUBLI6 that may be used by primory tasks. 

10 PUBLIB that may be used by secondory tasks. 

1 1 Termination (normal or not) requested. 

12 Gsntrol "Y" sequence to be performed. 

13 Load module that is running. , ' 

14 Primary load module that is waiting for memory to load (Run queued). 

15 Break has occurred. 

LMISDT (LMI6) 

For user load modules — Task ID: STI index for the secondary tasks; otherwise, zero. 

LMIRTS (LM17) 

For user load modules — RTS Stack Control DW: The stack control doubleword for the load module's CP-R temp 
stack. Set up during loading, from information in the load module header. Used as a stack control doubleword by 
monitor services executing in the task's context. Accessed indirectly through K:RTS for dispatched and centrally 
connected tasks. 

LMI/Vl^XS (LAAI8) 

For user load modules - S-ECB: The maximum number of solicited ECBs to allow any single tosk running in the load 
module to hove simultaneously. This is set at task initiation from the program header. As new S-ECBs are created, 
and the current S-ECB count incremented, it is compared to this limit and the lood module aborted if the maximum 
is exceeded. 

LMIMAXR (LMI9) 

For user load modules — R-ECB: The maximum number of request ECBs to allow any single task running in the load 
module to queue. Used as S-ECB maximum above. 

LMIAET -»'* 

AETS (byte 0): The length of the Associative Enqueue Table, in entries. 

AET Address: The first word address of the Associative Enqueue Table for job level controlled items. The AET 
space is reserved os each load module is initialized. Enough space is acquired to hold the maximum number of 
ENQs as specified in the task's load module header. This control word does not change during task executions. 
At task termination, the AET space is released. 
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LMISECB 

Count (b/te 0): Current count of the number of ECBt in the solicited ECB chain. 

S-ECB chain head: Address of the oldest solicited ECB in the S-chain. When a load module is initially loaded, 
the solicited ECB chain is empty. As service requests are mode which create S-ECBs, they are cdded to the S-chain, 
and the count is incremented. If the current count exceeds the maximum allowed as specified in LMI^AAXS, ex- 
ecution of all the tasks in the load module is immediately suspended primary tasks ore discounnected), and the 
load module is abnormolly terminated. As services are checked, the S-ECB is de-linked from the chain and the 
count is decremented. 

LMIRECB 



Count (byte 0): Current count of the number of ECBs in the request ECB chain. 

R-ECB choin head: Address of the highest-priority request ECB in the R-chain. When a load module Is initioliy 
loaded, the request ECB chain is empty. As service requests are mode of the load module (sigmis if user load 
module), they are added to the request chain in priority sequerKe, with the lost request being placed at the end 
of its priority group. The current R-ECB count is incremented and compared to the maximum allowed in LMIMAXR. 
If it is greater, all member tosks are suspended and the load module is abnormally terminated. As the R-ECBs are 
posted by the R-task, they are delinked from the R-chain and the current count is decremented. ' 

LMIRFT 

Size: Size of the File Activity Table (in words) 

Address of File Activity Table: Address of a byte table in TSPACE which is parallel to the RR and contairu the same 
number of entries as the RFT. The table is used to maintain the number of DCfis open to disk files by a particular 
load module. 

System Task iRMirtory (STl) 

Purpose 

The System Task Inventory is the key to all controls for tasks. It contains an entry for all primary and secondary, 
userandCP-Rtasks currently defined. For each task, itcontains theidentificationof the task's }oband load module, 
priority, and linkage to other control blocks. 

Type 

Parallel in CP-R Table Space 

Logical Access 

An STI entry is addressed using the task ID as an STI index into each of the parallel subtabies. 

If a task is in execution, the task ID is in byte of TCB POINT. 

If a task is not in execution and the task ID is not known, then: 

Primary tasks can be uniquely identified by a search for equality on the interrupt priority to which they are 
connected. 

Secondary tasks must be located by searching the LMI for a task name/job ID match. The LMISDT captains the 
secondary task ID. "* 

Overview of Usage 

The STI fable space is allocated by SYSGEN, reserving enough entries in each subtable to satisfy the TASKS option 
on the :RESERVE command, plus a fixed number for internal CP-R tasks. The CP-R task entries are initally set by 
SYSGEN/IPL. The user entries ore all zero. 
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STILMID anfry contains Hw number of anh-Ias in the STI fables. 



STISPCE 



STIXRTS 



STIRTSB 



STUID 



32 



SJI index 



Length 


Link to first temp space area 







76 


31 


Interrupted tasks K:RTS pointer 










31 
31 


K:RTS of last CAL 


for nested CALs 
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STILNAID 



LMI index 



STIPRIO 



STTCB 



Hardware 
priority 


Software 
priority 





T 


A 
L 
T 


DSO 


RDLIDX 


7 8 15'16'17'18'19 23'24 31 
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1 
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8 
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TCB/STCB Address 



1 2345678 
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STIOVID 



STICOUNT 



Active OVID 



1 2 



Wait 
count 



15 



STITIME 



STISTAT 



STIDNXT 



STIRNXT 



Critical timeout threshold 



t 

I 




s 

T 




s 

p 


T 





r2'34567 


Disp. chain 


7 


Roll-out chain 
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STITICK 



Time Ticks 



15 



STIQMIN 



Time Quantum 



126 



STIQMAX 



STIQSWAP 



Time Quantum 



Time Quantum 



STISPCE 

Head of the TSPACE chain. The chain represents all of the temp space that has been obtained by the task. 

STIXRTS 

Lx)catton in which the task's RTS pointer is saved when interrupted by a higher-priority centrolly connoted task. 

STIRTSB 

RTS Control Doubleword at the last entry to a CALl processor. This address is the STIRTS value after CALl entry 
has stored the caller's R0-R15, PSD and context. It Is used by the monitor to quickly locate the register values for 
effective address resolution or error value setting, and by CALIEXIT to ignore residual data in RTS. STIRTSB is set 
to at task initiation and should always be except when the task is within CALl processing. 

STIJIO 

Identification of the job to which the task belongs, and index Into the SJI. This is set when the task is defined, 
and is not altered during execution. 

STILMID 

Identification of the load module to which the task belongs, and Index into the LMI. This Is set when the task Is 
defined, and is not altered during execution. 

STiPRIO 

Priorities (bits - 15): 

If the task is primary: 

Byte is the address corresponding to the interrupt level, -X'4F'; byte 1 = X'OO'. 

If the task is secondary: 

Byte is the address -X'4F' of the CP-R dispatcher level at which the task is dispatched and executed. 
Byte 1 is the software priority within the dispatcher level (X'OT through X'FF', where X'FE ' = control 
task and X'FF' = background). •* 

■4 

This value Is set when the tosk Is defined. If the task Is secondary. It will be altered as the task's priority is altered 

by MODIFY calls or internal CP-R priority-changing logic. 

START (start pending on task); 

The secondary task has been STARTed, artd the start has not been honored. This bit is set by the START CAL 
processor and reset by the dispatcher when it causes the reversing of the STOP bit in STISTAT. 
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ALT (Dispofch wing Hi« altemafe PSD): 

The secondary fosk will be dbpotched uting an alfernate PSD the nexf Hme. The current PSD will be found 
in the Alternate PSD after dispatch otkI Alt will be reset. 

DSO (Dispatcher Skip Override): 

The task is in a CAL processor modifying a shared segnwnt morked OS (Dispatcher Skip). This value, if non- 
zero, prevents rollout of the task so that the CAL processor can complete the service while holding up other 
users of the shared segment. 

RDUDX (RDLl index): Dispatcher ID. 

^CTTCB 

Used bit (bit 1) = 1 if entry is being used. 
= if entry Is free. 

TINP bit (bit 2) = if task is not woiting for terminal input. 
= 1 if task is waiting for terminal input. 

LW bit (bit 3) = 1 if task is in a long-wait. 

= if task is not waiting or is in a normal woit. 

Lock bit (bit 4) = I if task has locked itself in memory. 

CA (bit 5) = 1 if the task is to be chained after its priority group when returning to the dispatcher. 

= if the task is to be placed at the beginning of its priority group. CA is reset to on every 
requeue. 

Term (bit 6) = 1 if the task is executing in the Task Termination phase. 

Block (bit 7) = 1 if the task has executed a non-l/O service with wait (including STOP). 

TCB/STC6 address is TCB real address if task is primary STCB 1-1 address if task is secondary. 

Task initiation and CONNECT acquire STI entries and store the TCB oddress or STCB address. These fields are con- 
stant throughout the task's life. The remaining indicotor bits are initialized to zero and are modified during execu- 
tion by service calls. Task termination resets STITCB to zero, releasing all task control information. 



snovio 

ACT bit = 1 if the overlay is active. 

PEN bit = 1 if the overlay is being read from the disk. 

Active OVID is the index into the Monitor Overlay Inventory. 

STICOUNT 

Wait count: The number of ECBs in the S-ECB chain, which must be posted prior to the task leaving the^ait state. 
Only ECBs with the WD (Wait Decrement) bit set will decrement the wait count at posting time. If the vtn'if count 
is nonzero, the task is roodblocked. STICOUNT is zeroed at task initialization, is set nonzero by the CALs that 
cause waits and task termination, and is decremented by the ECB posting logic. 

STmME 

Critical Timeout Threshold: When placing any task into o roodblocked or wait state, the ECBs being checked 
(WD = 1) are scanned and the most critical time threshold is extracted ond placed in STITIME. On subsequent 
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timeout passes, the threshold is compared to the volue of K:UTIME to detect timeouts. If o timeout has occurred, 
the ECB chain is scanned again to locate any or all timed<«ut events, end the posting is done with a completion 
code of X'67'. If wolt count is still not zero, the setting of the criticol time is repeated. 

^ISTAT 

Status flags that inhibit dispatching of the task, as described below. 

The dispatcher examines the stotus of all tasks in the dispatch chain. If the content is nonzero, the tosk is con- 
sidered ineligible for dispatching. 

Primary tasks alwoys have a status of X'80', as set by CONNECT. Secondary tasks will have on initial status of 
X'OO' or X'20'. The secondary task status bits ore altered during execution as described below: 



Status 


Bit_ 



Set by 
Connect CAL 


Reset by 


Primary 


Tosk Termination 


Rolled Out 


1 


Roll -Out 


Roll -In 


Stopped 


2 


STOP, EXIT task initiation 
without execution 


START, task initiation with exe 


In execution 


3 


Dispatcher when dispatching, 
loading PSD and registers 


Dispatcher when returning PSD 


In initialization 


4 


Task initiation 


Task initiation 


Suspended 


5 


WAIT CAL 


Any event affecting task status 


Slice 


6 


Task initiation 


Task termination 


Swapped 


7 


Memory Management 


Dispatcher 



STIDNXT 

Dispatcher Chain — the STI index of the next tosk in the dispatch choin. Entry contains the chain head to the 
highest priority task in the system, primary or secondary. 

This chain continues through all tasks in the system. It is used by the dispatcher to locate the next secondary task 
to execute and the timeout routines to locate those primory services that need timeout. 

As each task is created, it is added to the dispatcher chain and remains as a member of the chain until termination. 
Its position within the chain is changed as it changes priority or enters a wait state. A value of X'OO' is the 
end of the chain. 



STIRNXT 

Roll-out Chain - the STI index of the next task in the roll-out chain. Entry is the head of the roll-out chain and 
contains the first task to be rolled-out. The chain contirwes through all tasks until the highest priority Mftk, which 
is the lost task to be rolled out. A value of X'OO' is the end of the chain. 

The chain is strictly in order of priority. As eoch task is created, it is added to the roll-out chain and remains as 
a member of the chain until termination. Its position within the chain is changed as it changes priority or enters 

a wait state. The roll-out chain is the exact inverse of the dispatcher chain, and each serves as a backward link 
for the other. 
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trmcK 

Task ExecuKon Time — confaint a count of the number of clock ticks of execution time this task has received. For 
secondary tasks, the CP-R dispotcher converts this volue to milliseconds and accumulates the total execution time 
in a one-word entry in the tasks Job Control Block. 

STIQMIN 

Execution time-quantum remaining — contains a count of the number of clock ticks remaining before this task must 
give up control of the CPU. The count is decremented by the CP-R clock routines ond refreshed by the CP-R 
dispatcher. 

STIQMAX 

In-core execution time used —contains o count of the number of clock ticks of execution time this task has used 
since ths task was last rolled-out. The count is incremented by the CP-R clock routines and is used by the CP-R 
dispotcher und memory manogement executive to control memory use between time-sliced tasks. 

/ 

STIQSWAP 

Swap time threshold —contains a count of the number of clock ticks that a swapped out task must remain swapped 
out. The count is decremented by the CP-R clock routines and is referenced by the CP-R dispatcher. 

TMfc CMitnl Block (TCB) 

ftirpose 

The TCB provides the context save area, system pointers, partial entry linkage and entry PSD for centrally con- 
nected primary tasks. Each primary task has its own TCB. 

Type and Location 



A TCB is a serial table in the users memory at a locoti&n provided by the user in the connect call. 

Logical Access 

The TCB for a primary task is pointed to by: 

• The XPSD in the interrupt location. 

• TCBPOINT during the task's execution. 

• The STI entry corresponding to the primary tosk. 

Figure 45 illustrates the logical links between the TCB and other system control data. 

Overview o f Usage 
^ 

The TCB content is initialized by the CONNECT service routine. When the primary task is entered, the context of 
the interrupted task is saved in the TCB, including the interrupted-tasks TCB and PCB pointers which are swapped 
with those of the primary task thot is being entered. When exiting the level, the central exit logic swaps the TCB 
and PCB pointers which restores the TCB to the original values. The registers and PSD are also restored. 
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Figure 45. Relationship between a Primary Task Control Block and Other Control Blocks 



Task Control Block (TCB) Fonnot 

Word 

1 
2 

3 

4 

5 
6 

7 

8 

9 
10 
11 

25 



— 


Saved PSD 


— 


— 


Intermediate PSD 


_ 


STM,0 


7CB + 10 




BAL,R1 


RBMSAVE 




Flags 


PCB Address (real) 


Task ID 


TCB Address (real) 


— 


Entry PSD 


— 


— 


Register Save Area 


— 



J 
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where 

Saved PSD (words 0, 1} is Hie PSD of the task rfie primary task interrupfed at its last entry. 

Intennediate PSD (words 2,3) is the PSD loaded by the XPSD command at entry. The contents of this PSD 
are set by CONNECT to ail zeros with these exceptions: 

Instruction oddress — TCB -*- 4 

Condition Code = the number of registers to be saved with the STM command in TCB + 4. CC = if the 

CONNECT commond specified that all 16 registers be saved via the central connection. 

Since the XPSD does not alter the register block value in the PSD but leaves that of the interrupted task 
(LP = 0), the Register Block Pointer = 0, 

STM, BAL commands (words 4,5} ore commands executed as port of the central connection entry logic. 
STM causes the number of registers requested ta be saved, and BAL enters the remainder of the central 
connection logic (RBMSAVE). 

Flags (word 6) have the following meoning: ' 

Bit = for user task 
= 1 for CP-R task 

1 = for foreground task 
= 1 for background task 

2 = for primary task 

= 1 for secondary task 

3 = for real addressing 

= 1 for virtual addressing 

4 = if reserved 

5 = 1 if the task is to be reentered instead of exited at EXIT. This bit is transient. It is set when end- 

action triggers are performed, and reset during RBMSAVE and when reentry occurs. It can exist 
only in TCB + 6. 

PCB Address (word 6) is the real address of the PCB in the lood module to which the task belongs. 

Task ID (word 7) is the index into STI of the task's entry. 

TCB Address is the real address of the first word of the TCB. 

Note: When a task is active, flags, PCB address, task ID and TCB address contain the values for the inter- 
rupted task versus the primary task corresponding to the TCB. 

&itry PSD (words 8, 9) is the PSD to be loaded when entering the primary task. All bits are zero except 
those specified otherwise on the CONNECT call as follows: 

Master/Slave — as specified 
Decimal and Arithmetic Masks — as specified 
Irutruction Address — callers start address 
Write Key— 10 (foreground) 
CI, II, EI — inhibits as specified 
Register Save Area (words 10 through 25) are the save area for the registers of the interrupted task. 
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TMii CMrtral BiKfc (STCB) 



i\irpose 

The STCB contains all controls for software scheduled secondary tasks which reflect the execution status and memory 
usage of the task. 

idOcation and Type 

The STCB is o serial control block in TSPACE, 

Logicol Access 

The STCB is pointed to by the following: 

TCBPOINT (during task's execution only) 

STI entry corresponding to the secondary task ,' 

The XPSD in the interrupt location corresponding to the CP-R Dispatcher Level (RDL) immediately above the Task 
Level (STL) (during execution only). 

Figure 46 illustrates the logical links between the STCB and other system control data. 

Overview of Usage 

A user STCB is created by task initialization if the load module requested is secondary, CP-R task STCBs are in- 
cluded in the resident portion of the task's code, as are all control blocks "lower than" the STCB. The initial STCB 
content set by task initiation is described for each data element, as is the element usage. The STCB is used by the 
CP-R control functions, dispatcher, memory management services and roll-in/roll-out during the life of the task. 
STCB space is released by task termination. 
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Figure 46. Relationship between Secondary Task Control Block and Other System Control Date 
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Secondary T»k Control Block (STCB) Formot 





1 




Current PSD, Secondary Task (R or V) ' — 


2 
3 




Intermediate PSD (R) 


4 


STM,0 STCB + 10 (R) 


5 


BAL, Rl RBMSAVE (R) 


6 


Flags 


PC B Address (RORV) 


7 


Task ID 


STCB Address (1-1) 


8 
9 




Entry PSD to Post Dispatch (R) 

Processing 


10 
11 

25 


^ 


Current Registers, Secondary Task 


26 


Length 


AST Address (1-1) 


27 


Length 


ACl Address (1-1) 


28 


RDL Group Code 


RDL Level Bit 


29 


- 


30 
31 




Alternate PSD 



where 



Current PSD of the secondary task (words 0, 1) either the PSD to be loaded on the next dispatch Of not in 
execution), or that loaded on the last dispatch (if in execution). 

Tosk initiation resets the initial PSD to all zeros except: 

MS = if master mode. 
= 1 if slave mode. 

MM = if unmapped. 

= 1 if mapped. 'A 

lA load module entry address unless run with Debug, in which case lA is the Debug entry address. 
Address is real or virtual os per mode of execution. 

Write Key = 01 if foreground secondary task. 



Entries to RDL subsequent to dispatching the task save the current PSD. 
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Internwdiate PSD (words 2,3) a PSD to hwufer conirol to real address STCB + 4. All other intermediate 
PSD bits are zero. Task initiation sets the intermediate PSD address which remains unaltered. 

STM and BAL commands (words 4,5) stored by task initiation to cause context saving end swapping via 
RBMSAVE after a task has been executing. These commands are set by task initiotion, real addresses, and 
are not altered. 

Flags (word 6) the tosk flags set by task initiation as follows: 

Bit = for user task 
= 1 for CP-R task 

1 = for foreground task 
= 1 for background task 

2 = 1 for secondary task 

3 = for real memory, unmapped 
= 1 for virtual memory, mapped 

4 Reserved 

5 Reserved 

The flags are not altered during the task's life. 

PCB Address the address of the task's Program Control Block, which is set by task initiation and not al- 
tered. Mapped secondary tasks will have the PCB Address in virtual. Unmapped secondary tasks (CP-R 
or primary initiation tasks) will have the PCB Address in real. 

Tosk ID (word 7) the identification of the secondary task and index into the task's STI entry. This ID is 

set by task initiation and not altered. 

STCB Address the 1-1 address of the STCB, set by tosk initiation and not altered. 

Note: Words 6 and 7 ore swapped with PCBPOINT and TCBPOINT when a task is executing, as is done with 

primary tasks. Therefore, between the time a task is dispatched (in execution) and its status is returned 
to the STCB by an RDL entry, words 6 ond 7 contain the dispatchers PCBPOINT and TCBPOINT values. 
When a task is not dispatched, its own values appear. One secondary task can be "in execution" for 
each CT pair in the system. "In-execution" is equivalent to a hardware level being active. The task 
is either executing, or waiting for higher tosk to drop its interrupt level and return to the lower prior- 
ity task. 

Entry PSD (words 8,9) o PSD to transfer control to clean-up processing for tasks returning from an "in- 
execution" state. After RDL is triggered and has saved context via RBMSAVE this PSD is loaded. It 
is all zeros except for lA which is the reol address of RDLRTRN, is set by task initiation, ond re- 
mains unaltered. 

Current Registers (words 10-25) the registers to be loaded on the next dispatch (if not in execution), or 
those loaded on the last dispatch (if in execution). They ore set randomly by task initiation and saved 
on all entries to RDL subsequent to the task being dispatched. -^ 

Length (word 26) the number of words in the Associative Segment Table (AST). 

AST Address the first word address (1-1) of the AST. AST space is allocated by task initiation and the 
address and length are set in the STCB. This word is not altered. 
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ACI Address (word 27) The first word address (1-1) of the Access Control Imoge. The ACI space !s 
allocated by task initiation and the oddress is stored in the STCB. This word is not altered. 

RDL Group and Level (word 28) The group and level bits of the RDL Level under which the secondary task 
is currently queued. Set by the dispatcher queue maintenance routines. 

Word 29 Spare. 

Words 30, 31 Alternate Program Status Doubleword or alternate PSD to be used the next time the task is dis- 
patched if ALT is in the STI=1. When ALT is honored by the dispatcher, this PSD and the current PSD 
in words and 1 are swapped. 



Assoeiilive Segment Teble (AST) 



Purpose 

The AST provides the Task Dispatcher with a list of all segments whose mop image must be loaded into the hardware 
map before the task can be dispatched. It is used by roll-out to record that on active segment was rolled out and 
task execution suspended; by roil-in to reactivate deactivated roll-out segments. 



Type 

Serial consecutive entries in CP-R TSPACE. 



Logical Access 

The AST is pointed to from the STCB, containing an entry for every segment defined in a Secondary Task Load 
Module including Root Part two. In addition CP-R odds a segment for Job Reserved Pages and Task Reserved Pages. 
The AST entries ore ordered with respecttothe segment's virtual starting address (i.e., the next higher adjacent AST 
entry represents a segment with a starting virtual address that is equal to or larger than the preceding AST entry. ) AST 
is typically accessed by scanning for active entires that point to Segment Descriptors, which contain all information 
necessary to describe the segment. 

Figure 47 shows the AST and its retatioruhip to other system tables. 



Overview of Usage 



The AST is established by task initiation from information in the task's load module header, and deleted by Task 
Termination. 

When it dispatches a task. Task Management will scon the AST for entries that ore active and will use the pointer 
to the SD to access the information necessary to load the task's map. 

Memory Management uses the AST when performing segment operations for the user. The information contained in 
the AST and the SD is used to maintain the status of the task's segments for ACTIVATE, DEACTIVATE, and page 
operations (GETPAGE, RELPAGE). 

Memory Management also uses the AST and SD information when performing roll-out and roll-in functions. 
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Figure 47. Relationship of AST to Other System Tables 
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Associcrtive Segment Table (AST) Format 



J2i:iz:iz= — ======zziii;;^ 


Flags 


SD address (Root part one) 


Flags 


SD oddress (first user segment) 


-F 


-,' 


Flags 


SD address (last user segment) 


Flags 


SD address (Root part two) 


Flags 


SD address (JOB reserved pages) 


Flags 


SD address (TASK reserved pages) 



where 

Flogs 



b;to 

bit 1(A) 

bit 2(FA) 
bit 3(RD) 
bit 4 (DS) 

bit 5-7 
SD address 
bits 8-3 T 



is always zero. 

= if this segment is not currently active to this task; = 1 if it is active. Set by 
ACTIVATE, GETPAGE. May also be set by roll-in routines. Reset by DEACTIVATE, 
ERASE or RELPAGE routines. 

is first activate flag. Set by Memory Management when the segment is first activated to 
prevent decrementing segment erase count before an ACTIVATE. Reset by ERASE. 

is Roll-Out Deactivated flag. Set by roll-out task when rolling out an active segment. 
Reset by roll-in task. 

is Dispatcher Skip flag, if set, the Dispatcher, Skip (DS) flag in the Segment 
Descriptor (SD) oddressed in bil^ 8-31 was set by the task owning this AST. See 
the description of the DS flag in a SD for dispatcher implications. 

ore unused. 



is the real word address of the corresponding Segment Descriptor estobllshed by task 
initiation. 



DMCtiptor (SD) 



ftjrpose ■% 

The SD contains all segment-associated controls. It contains the access protection image, map image, the roll- 
out file position information and information relative to the status of each real page allocated to the segment. The 
SD is used by Task Marxigement and Memory Management. 



Type 



Serial with four parallel subtables in TSPACE. 
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Logical Access 



The SD is pointed to from the AST. Alternatively, SDs may be accessed through the appropriate SD chain (task 
level (LAfUSOT), job level (JCBSDT), system level (S:SD). 



Overview of Usage 

The SD is created by task initiation from information contained in the task's load module. Task initiation obtains 
sufficient space for the access image, map image, file image and page flags based on the size of the segment. When 
the segment is activated (by task initiation or later by the task itself). Memory Management obtains real memory 
resources for the segment filling in the access and map image and loading the images into the hardware map. 

The file image is initialized when the segment is being rolled-out. The initial file assignment remains with the 
segment until the segment is terminated. 

Memory Management controls the acquisition and release of real memory pages in response to segment or page oper- 
ation calls. Additionally, memory pages may be freed by the roll -out process. 

The SD is deleted at task termination time by Task Management. 
Segment Descriptor (SD) Format 



Oi2 345 67 



Access Image 



Page Flogs 



File image 



Map Image 



SS 



M 



Count 



8 



31 



Map Imoge Address 



Control Start (S) 



Segment Flags 



LMI 



Tasb Active 



Real Page 
Count 



AC 



AC 



AC 



AC 



Segment Number 



SDT FLINK Address 



Tasks Erased 



Virtual Page 
Count (n) 



AC 



AC 



AC 



AC 



Tasks Using 



AC I Count 



AC 



AC 



AC 



AC 



Tasks Locked 



No. fbges 
Rolled- CXrt 



AC 



AC 



AC 



AC 



AC 



AC 



AC 



AC 



Page Flags (S) 



AC 



AC 



AC 



AC 



Page Flags (S+1 ) 



AC 



AC 



AC 



AC 



Poge Flags (S+2) 



AC 



AC 



AC 



AC 



Page Flogs (S+3) 



Page Flogs 

(S-tTv4) 



Page Flogs 
(S-hi-3) 



File Address (S) 



Page Flags 
(S-tTi-2) 



Pbge Flags 
(S^-1) 



File Address (S+1) 



File Address CS^-2) 



P&ge(S) Real Address 



File Address (S-Hi-I) 



Page (S-t-1) Real Address 



Page (S4n-2) Real Address 



Page (S-tn-l ) Real Address 
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where 

WordO 



Bit is the dispatcher skip (DS) flag. The DS flog indicates that a change of state of the segment is in 
progress. A task will not be dispatched if eny of its segment descriptors have DS set, unless DS is set 
in the task's AST entry for the segment, also, indicating that the task is responsible for the state 
change. 

Bits 1 ,2 irwlicate segment status: 

00 — r>ormal 

01 —abort all using tasks 

. . — not assigned 

Set by Memory Monogement when major errors are discovered in the composition of the Segment 
Descriptor. 

Bits 3-5 Always zero. 

Bits 6,7 is a 2-bit index (APM) into a mask table used by Task Management to load the hdrdware 
Access Protection registers. Set by task initiation. 

Bits 8-31 is the real word address of the first word of the map image subtoble. Initialized by task 
initiation. 



Word 1 



Bits 0-7 is count of the number of words in the mop image subtoble, equivalent to the integer portion 
of the expression. 

Virtuol Ptage Count + 1 
2 

(Count is set by task initiation.) 

Bits 8-14 always zero. 

Bits 15-22 control start —the virtual page address of the first page of this segment. Set by task 
initiation. 

Bits 23-31 always zero. 

Note: Words and 1 form the control doubleword used by an MMC instruction for loading the hardware 
mop. 



Word 2 



Bits 0-15 Segment flags: 

bit unused. 

1 indicates that real address correspondence (RAC) is required for this segment. Set by task initiator. 

2 indicates that only secondary task memory (STM) is used for this segment. Set by^ask initiator. 
Bits 3,4 is the access protection code (APC) for this segment: 

00 — all access 

01 — read and execute 

10 — read only 

1 1 - no access 

Set by initiator. 
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Word 2 (cont. ) 

Bit 5 not assigned. 

Bits 6-8 indicate segment type: 

000 -task level 
001 - fob level 
010 -system level 
Oil - Public Library 

100 — not assigned 

101 — task-reserved pages 

1 10 — job-reserved pages 

1 1 1 — system overlay 

Set by task initiator. 

Bits 9-11 indicate segment state — a code representing the current state and remaining dynamic through- 
out the life of the segment: 

000— being initiated or erased / 

001 —erased 

010— inactive 

Oil —active 

100— being rolled out 

101 -rolled out 

110 — being rolled in 

1 1 1 — being loaded 

Initially set by task initiator and manipuloted by Memory Management. 

Bits 12-15 not assigned. 

Bits 16-31 represent segment number. 

bit 16 = if this is a user-numbered segment. 

= 1 if this is a special system-numbered segment as follows: 

bits 17-19: 

000 — system overlay 

001 — special system use 
010- PUBLIB 

Oil 
'. not assigned 

111 

bits 20-31 — system segment number. 

This field is established by task initiator. 



Word 3 



Bits 0-7 ore the Load Module Inventory (LMI) entry index for a Public Library segment (type = 010). 
Set by task initiator. 

Bits 8-31 are the real word address of the next SD in rfils level SD chain. Set by task initiator. 



Word 4 



Bits 0-7 contain a count of the number of tasks that have this segment octive. Initially set to zero, 
count is incremented by 1 for each ACTIVATE directed to this segment. Decremented by 1 for each 
DEACTIVATE. When 0, the segment is a candidate for roll-out. 
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Word4 (conN) 

Bits 8-15 contain a count of the number of tasks that hove erased this segment. Inifiali/ zero, count 
is incremented by 1 for every first ACTIVATE and decremented by 1 for each EUASE. When this count 
goes to 0, the real memory that has been allocated to this segment will be released. 

Bits 16-23 contain a count of the number of tasks using this segment. Initially set to 1 by task initi- 
ation when the segment is defined; thereafter incremented by 1 for each task sharing the segment. 
Decremented by 1 when using tasks terminate. When the count goes to 0, the segment descriptor is 
deleted. 

Bits 24-31 contain a count of the number of tasks that hove locked this segment. Initially 0, count is 
incremented by t for LOCK and decremented by 1 for UNLCXIK. The segment will not be rolled out 
if the count is greater than zero. 



Words 



Bits 0-7 contain a count of the number of real memory poges currently in use by this segment. Main- 
tained by Memory Marwgement. ,/ 

Bits 8-15 contain a count of the number of virtual pages required for this segment. Set by task initiation. 

Bits 16-23 contain a count of the number of words in the Access Image Table. Used by Task Dispatcher 
when constructing the AC! table, the count is set by Task Initiation. 

Bits 24^31 contains a count of the number of pages that have been rolled out. 

Access Image Bits 0-31 is a parallel word table with two-bits per entry that contains an image of the 
access protection for this segment. Each word controls 16 pages of occess protection. However, all 
2-bit entries need not be used for any given segment depending on its starting virtual address and 
length; unused entries are set to no-access. 



Page Flags Bits 0-31 is a parallel byte table that contains the status of each page in this segment: 

bit FFP, Foreground Preferred Page. A real page from oForeground Preferred Parition. Set by Mem- 
ory Management. 

bit 1 FSA, File Space Allocated. Indicates that roll-out file space has been ollocoted to this vir- 
tual page. Set by Memory Management. 

bit 2 RPP, Real Pbge Present. Indicates that a real memory page has been allocated to this virtual 
page. Set by Memory Management. 

bit 3 PRO, Page Request Outstanding. Indicates that a request for this virtual page has been made 
but could not be satisfied immediately. 

bit 4 ROL. Indicates that this page has been rolled out. 

bit 5 not assigned. 

-* 
bits 6,7 APC, Access Protection Code. Used to control access to reserved pages and therefo^p, present 

only if segment type is 101 or 110 (reserved pages). Set by Memory Management. 

File Image Bits 0-31 is a parallel halfword table that contains the roll-out file granule displacement 
that corresponds to the particular virtual page address controlled by this segment. 

Map Image 0-31 is a parallel halfword table that contains the real page address that corresponds to 
the particular virtual page addresses controlled by this segment. The last entry of this table may or 
may not be used depending on control start. 
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iolHCoiitrolled TaMes 

The tables shown in this subsection are job controlled, i.e., contain data associated with the job level of control. 
Figure 48 shows the overall relationship of the job-associated tables and data. (Note that the OPLBS and AET tables 
were described in the "General System Tables" subsection, being both job and task related.) 

System Jab Inventory (SJI) Table 

Purpose 

All jobs are known to the system by meons of the SJI. It contains one permanent entry for the CP-R job, one per- 
manent entry for the background and one temporary entry for eoch foreground job active at a given time. For each 
job, it contains the EBCDIC job name, the JC6 address, a bit indicating whether the SJI entry is in the process of 
being created, and length of the Job Control Block (fixed portion) In words. 

Type 

Parallel; in CP-R system table space with a fixed number of entries. 

Logical Access 



The SJI table location is known via a DEF on the subtable names. The job ID is the SJI index into each of the par- 
allel subtables. If the job ID is known, job name and JCB location ore obtained by using the job ID els,an index 
into the appropriate subtable. If job name is known, table lookup will produce the job ID and JCB location. The 
SJI entry for CP-R is the first entry. The SJI entry for the background !s the second entry (i.e., the CP-R SJI 
index is 1; the background SJI index is 2). 

Overview of Usoge 

The SJI space is allocated by SYSGEN from CP-R system table space. Space is reserved for the maximum length 
specified by a SYSGEN parameter that limits the total number of jobs that can exist at any one time. This limit is 
some number less than 31, where one of the number is for background. In addition, one entry is made for the CP-R 
system job (not one of the number specified). The background entry is also always made and is the default (1 entry 
plus the CP-R entry) if no limit is specified. 
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SJl 



E>^ 



JCB address 



JCB 



Job ID 



AET Pointer 



JPT Pointer 



BBCT Pointer 



OPLBl Pointer 



OPLB2 Pointer 



EDT Pointers 



SDT Pointer 



0PLB2 Table 



BBCT Table 



JPT Table 



AET Table 



^> 



—J AET I (option of job initiation) 
--*j JPT I (option) 



OPLBS1 (System table) 



EDT 



EDT 



SDT ► SDT etc 



Note: (The entry order is arranged for illustrative purposes only.) 



Figure 48. Relationship of Job- Associated Control Tables 
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The CP-R and background entries are initialized by CP-R INIT. All other entries are initialized to zero. SJOB 
requests cause job management to make new entries for foregrour)d jobs. KJOB requests and requests from task man- 
agement cause job marwgement to delete entries. The JOBS option of the SYSGEN :RESERVE command specifies 
the number of user (background plus foreground) SJI entries. 



System Job Inventory (SJI) Table Format 
Name Content 



SJIl 



SJ12 



SJI3 






No. of words 
in JCB 


JCB Address 


1 7'8 





31 
31 






EBCDIC job name 









32 



63 






L 










1 


2 7 



where L = 1 indicates job-initiation is in progress. 

(SJI3, index contains the maximum number of jobs allowed to be active at o given time, i.e., length 
of SJI. ) 



Job Control Biock (JCB) 



Purpose 

The JCB contains information sharable or common to all tasks in the job. Each job has one JCB pointed to from the 
SJI. It contains job ID, trap controls, pointers to JCB tables, chain headers for job-related chained tables, and 
JCB tables. The JCB is comprised of a fixed length portion and two variable length subtables: The JPT andthe AET. 
The JPT length is a SYSGEN parameter and may be long, and the AET length is dynamic. Therefore, at job 
creation, the job Initiation routines may elect to exclude one or both of these two tables (which ore themselves 
serial tables) from the fixed portion of the JCB. Two JCB flags ore provided to indicate their presence in the fixed 
portion or linkirtg from the JCB. If present in the fixed portion of the JCB, the respective flag is zero and the table 
pointer contains the number of words in the table in byte zero and the address in the JCB in bytes 1-3. If linked 
from the JCB, the respective flag is set to one and the table pointer contains the number of words of TSPACE in byte 
zero and the address of the table in bytes 1-3. 



Type 



Serial; in CP-R TSPACE with consecutive entries and linked entries. 



Logical Access .« 

JCBs are pointed to from the SJI. Job ID is the index into the SJI. JCB data elements occupy fixed positions in 
the JCB or ore linked from pointers in fixed positions in the JCB. The Job Operational Label Table (OPLB), and 
the Blocking Buffer Control Table (BBCT) ore part of the fixed portion of the JCB and are located by pointers in 
fixed locations in the JCB. The Enqueue Definition Table (EDT) and the Segment Descriptor Table (SDT) ore tables 
whose entries are acquired as needed by tasks in the job. They ore linked from pointers in fixed positions in the 
JCB. The Job Program Table (JPT) and the Associative Enqueue Table (AET) may be in the fixed portion of the 
JCB or may be lirdced fiom the JCB. 
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Ovrview of Uboge 

The JCBi are allocated by job management from CP-R TSPACE. Space is acquired ¥^hen the job is initiated and 
released when the job is terminated. The JCBs for the CP-R job and the background are established in CP-R INIT 
and are never released. The EDT and SDT entries are each linked in a chain from the JCB. EDT entries ore ac- 
quired and released by resource marragement. 



Job Control Block Format 

Word 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
IS 
16 

17 
18 



23 
24 



Content 

01 2345678 



OODIS 



131415 



16 



23 24 



Job Priofiry 



Job ID 



Trap 
Flogs 



Trop 
Flogs 



No. Entries 



No. Entries 



No. Entries 



Max. length 



Max. length 



Prompr a<ar. 



JTrap Address (Secondary) 



JTrap Address (Primary) 



OPLBl Table Fbinter 



OPLB2 Table Pointer 



BBCWT Pbinler 



JPT Pointer 



AET Pointer 



EDT Pointer - heod 



EDT Pointer -toil 



SDT Chain Head Pblnter 



Debug Control Word I 



Debug Control Word 2 



Tari( ID 



Bre^ Receiver Address 



TJE BBCW Addre 



Size 



Size 



TJE Teb Setttf«s Addrea 



Next \M None Addreu 



Account end User Nanws 



Job Time Accounting 



Blocking Buffer Control Word Table (BBCWT) 
(25 words) 



OPI^2 Table 



Job Progrom Table (JPT) 
(quodri^le-word entries, DW bound) 



Enqueue Table (AET) for job level 
enqueues (DW entries, DW bound) 



;i>^ 



31 



iP^P-' 



OPLBSI 
system table 



': 't* r" '" 



^^ 






■t^'^-- 






O I 






, V 



- \ ^^' -yi ,\i 



\ h t V 



J ,.- 



_/- 



'ji>- 






>/nv' 



Thete tables may not 
be contiguous to the 
JPT or to eoeh other, 
' in order that dynamic 
space may be more 
efficiently used. 
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where 


WordO 


Bit 1 (D) 


Bit 2 (A) 


Bit 3 (J) 



= 1 for fob running under DEBUG. 
= for normal run. 

= if AET is in fixed portion of JCB. 
= 1 if AET is linlced from JCB. 

= if JPT is in fixed portion of JCB. 
= 1 if JPT is linlced from JCB. 

Bits 6,7 (DIS) ore debug initialization status bits: 

= 00 No DEBUG. 

= 01 Needs initialization startup. 

= 10 In initialization. 

= 11 Fully initialized. 

Bit 14 (T) is job-belng-terminoted bit. 

Bit 15 (S) Is job-being-tnitioted bit. 

Words 12, 13 

contain Debug Oplobel device assignment before initialization, 6BCWT pointer afl-er initialization. 

Word 14 

Bits 0-7 Id of task tfiot will field break conditions. 

Bits 8-31 Address of Break hondler. 

Note: Word 14 is zero if no Break handler is specified. 

Word 15 

contains the address of the Blocking Buffer ContrQJ Word for the TEL context blocking buffer. 

Word 16 

contains the TSPACE control word for the TSPACE block contolnlng tab settings for a TJE line. 

Word 17 

contains the TSPACE control word for o TSPACE block containing the areo nome, file name, and account 
name for the next load module to load (for TJE) and background sequencing. 

Words 18-22 

words 18 and 19 contain the account name field. Words 20-22 contain the user name field. 

Word 23 



contains the total amount of CPU time that has been used by all secondary tasks in this job. The value is 
in milliseconds. 

j€fe Program Tabl« (JPT) 

Purpose 

The JPT allows the user to specify the name of a load module to be used for execution of a task. '^ 

Type 

Serial; in the JCB or linked from the JCB (depending on space requirements) with the maximum number of entries fixed 
at SYSGEN by the JPT option of the :RESERVE command. Defoult is zero entries. SdPT contains the maximum 
number of entries specified. (The maximum that may be specified is 63 entries. ) 
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Logical Access 

The JPT is located front a poinfer in a fixed position in the JCB. it is composed of doubleword poiis of EBCDIC 
tcBk-nome/load-module-name equivalences. Table lookup on task name is used to determine which load module is 
to be used for the task. (Byte of the pointer, JCBJPT, contains the totol number of words in the JPT table. ) 

Overview of Usage 



Space may be provided in the JCB for the JPT, or the JPT may be linked from the JCB, depending on space require- 
ments at the time the JCB is created. If it is included in the fixed portion of the JCB, it wilt be on o doubleword 
boundary pointed to from a fixed location in the JCB. If it is linked from the JCB, it will be on a doubleword 
boundary and will contoin the number of entries specified at SYSGEN ^poce acquired as a power of 2). In either 
case, byte zero of the pointer word contoins the number of words in the table and bytes 1-3 contain the address of 
the start of the table. On job termination, a flog (J) in the JCB will indicate which linkage applies and will re- 
lease space oppropriately. S JPT contains the maximum number of entries allowed in the JPT. 

Entries ore mode by tasks via the SETNAME system function coll. SETNAME moy be used across jobs. The default 
JCB is the calling task's job. SETNAME specifies o task-nome/load-module-nome pair of doublewords which ore 
entered in the JPT. Task initiation uses table lookup on task name to determine if any entry exists for the specified 
task name. If no entry exists, the task nome is assumed to be the desired lood module name. If on entry exists, task 
initiation uses the corresponding load module for task execution. SETNAME is also used to delete JPT entries by 
providing a task name and blanks in place of the load module name. Duplicate task names are not ollpwed, so a 
replacement will occur if a SETNAME call uses a tosk name which is already represented in the JPT. 



JPT Toble Formot 
Name 



JPT 



Content 



EBCDIC 
Task Nome 1 



EBCDIC Load-Module 
Name 1 



EBCDIC 
Task Nome 2 



EBCDIC Load-Module 
Name 2 



Size 



1st doubleword 



2nd doubleword 



1st doubleword 



2nd doubleword 



(etc.) 



where the EBCDIC Task Name characters and EBCDIC Load-Module Name characters are lefh-justified and blank filled. 

Enqueue Definition Table (EOT) 

Purpose 

The Enqueue Definition Table defines the currentcontrolleditems and resources in the system, ondprovideso mechanism 
for queuing outstanding requests for the item. This table is used in conjunction with the Associative Enqueue table. 

Type and Locotion 

Each EDT is o serial table in TSPACE. 

Logical Access 

Each EDT is a member of a chain whose head is either in CP-R location S:EDT (system level ENQs and all device 
resources) or in the JCB (job level ENQs). Figure 49 shows the overall relafionship between system tobies that 
directly or indirectly affect the EDT. 
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AET (System 1 










n-ft-m T_Li 




-] 




S:EDT 1 
evel) 






Frn 




1 JCBAET 




AETEDT 




















AETECB 












1 












Item 




















EDTEDT 














EDTECB 










ECB 








'V 




















JCBEDT 


- 


Item 










" 


c 

I 

V 

ec 








1 












EDTEDT 




- 








EDTECB 


1 


1 








ECB 








^ 












AET (Job levc 


'D 






Item 











LMIAET 




AETEDT 




EDTEDT 












AETECB 




EDTECB 












— 














ECB 




AETEDT 


— 






AETECB 


























Item 










, 


EDTEDT 










EDTECB 


i 














AET (Job level) 










ECB 






IMIAET 




AETEDT 


















AETECB 












• 


AETEDT 








AETECB 


















1 





































Figure 49. Enqueue/Dequeue Table Relationship 
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Overview of Uboge 

ThefinfaoquUition of any resource couses a new EDT to be creotadond added to the appropriate chain. This allows 
later ENQs to know thot the itetn is in use and check for conflicts. When conflicts do occur, ECBs are created to 
provide a waiting mechanism. The R-choin in the ECBs ore used to connect the ECBs to the EDT for which they 
are woiting. This chain is in order of time within priority as are normal R-chairvs. When DEQ updates the EDT and 
detects that the item has been freed, it checks for the existence of waiting ECBs. If none exist, the EDT is re- 
moved from the EDT chain and deleted. If ECBs do exist, the DEQ assigns access to the item to the highest priority 
ECB in the chain and all lower priority ECBs which do not conflict, posting the ECBs as it does so. 



Enqueue Definition Toble (EDT) Format 

wordO 
word 1 



word 2 



word 3 



31 



Resource name 


(8 EBCDIC characters) 


32 




63 


Flags 


weiting 
Etc ewnr 


EDT forward link address 


34 7 


8 31 


Use count 


Waiting ECB chain heod 



EDTNAME 



EDTEDt , 



EDTRECB 



31 



EDTEDT 

Flogs: 

bit = I This EDT is held by a job-level AET. 

= This EDT is held by a task-level AET. 

bit 1 = 1 This is a system-level EDT. 

= This is a job-level EDT, 

bit 2 Unused. 

bit 3 = 1 This EDT is held by a sharable enqueue. 

= This EDT is held 1^ an exclusive erK|ueue. 

EDT forward link address: A pointer to the next EDT in the system or job level chain. Zero signifies the end of the 
chain. 

EDTRECB 



Use Count: The number of tasks which currently have ocquired use of the item. If the ENQ is exclusive this count 
will be 1. If the ENQ is sharable, the count will be ^ 1. 

Waiting ECB Chain Head: The address of the ECB representing the highest priority outstanding ENQ for the item. 
'R-ECB' of zero indicates no ENQs are woiting. 

EDTNAME "• 



Nome: The name of the controlled item from the original ENQ call, or the device index, right-justified in the 
first word of the doubleword. 

LoacMNodule Data Structures 

The control blocks and table shown in this subsection relate to load-module files. 
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The first sector of a lood module file contains a block of information used to control the loading of the module and 
the ollocotion of system table space to it. This block is the load module header, end is written by the JCP Loader 
or Overlay Loader when the load module is created. A similar header is associated with each PUBLIB file. 



Task Load Module Header 



Word 

1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 





byte 











1,23 




F B R 


L 


I 
P 

1 


00 


Task First Word Address 


MSECB 


Task Last Word Address 


MRECB 


Task Entry Word Address 


MENQ 


Root Part one VM BL 


NSEGS 


Root Part one VM WO 


( 


) 


Root Port one LM BL 


Root Part two VM BL 


Root Part two VM WO 


Root Part two LM BL 


Root Pbrt two LM GO 


ft 


„ 




« n 







Stack control doubleword prototype 
for the CP-R temp stack 


■ 
















1 



Names of PUBLIB load modules required 
(up to 5 ot 8 bytes each) 



Remoinder of granule 
is unused 



where 



F = for o background task. 

= 1 for o foreground task. 

B = for a program not linked for Simplified Memory Management (SMM). 

= 1 for a background program linked for SMM. 

R = if a program is not restricted from using foreground Preferred Memory. 

= 1 if it is restricted. 
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L = for a task module (not a PUBLI6 load module). 

P = 01 for a secondary Iwk. 
= 10 for a primary task. 

MSECB = maximum permitted number of solicted EC8s; S'FF' if system default Is to be supplied. 

MRECB = maximum permitted number of received ECBs; X'FF' if system default is to be supplied. 

MENQ = maximum permitted number of resource enqueues; X'FF' if system default is to be supplied. 

NSEGS - number of segments in task, to include both parts of root, PUBLIBs and DEBUG. 

Legend: 

BL Byte length 

GO Granule origin 

LM Load module 

VM Virtual memory 

WO Word origin 



PUBLIB Load »>tedule Header 

Word 


1 

2 

3 

4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 



¥^ere 
F = l 

R = 
= 1 





byte 











1,2,3 




F 




J 


R 


L 


1 

P 
1 








PUBLIB First Word Address (FWA) 










PUBLIB Last Word Address (LWA) 
















u 


" 










PUBLIB VM BL 




NSEGS 


PUBLIB VM WO 


( 
( 


) 


PUBLIB LM BL 


Context VM BL 


Context VM WO 


Context LM BL 


Context LM GO 


T:SYMBOL LM BL 


T:SYMBOL LM GO 


T:VALUE LM BL 


T: VALUE LM GO 









n 










Ramairider of granule 
is unused 


'. 



for a foreground load module. 

if the PUBLIB is not restricted from occupying foreground preferred memory, 
if it is restricted. 
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L = 1 for a PUBLIB load module (not a task lood module). 

P = 01 for a secondary PUBLIB. 
= 10 for o primary PUBLIB. 

NSEGS = 1 for PUBLIB only. 

= 2 for PUBLIB witfi context segment. 



Legend : 



BL Byte length 

GO Granule origin 

LM Load module 

VM Virtual memory 

WO Word origin 

Notes: FWA-LWA refers only to the PUBLIB segment, not the context. FWA = PUBLIB VM WO. 



OVLOAO Table (for LDid Modules) 

In the root of every load module (root port 2 !f there is one) is the OVLOAD table for that module. This toble 
provides information about the size and nature of each segment, its segment identification number, and the READ 
FPT to load it. 

There is one entry for each segment, except for the root, PUBLIB, and PUBLIB-context segments, which ore omitted. 



Word 



(nn)-lO 
(lln)-9 



(11n)-5 
(11n)-4 
(nn)-3 



lln 



byte 



1 



Number of entries 



PS 



X'lO' 



VMPL 



Segment number 



Word address of M:SL 



VMWO for segment 



LM BL for segment 



LM GO for segment 



Word address of segment entry, or zero 



Entry 

n 

(11 words) 
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where 



M = 00 for any access 

= 01 for read/execute 

= 10 for read only 

= 11 for no access 

X = (reserved for Memory Management) 

P = segment tmage is in this lood module 

= 1 segment is sharable and must be pre-loaded by another task, since its image was omitted from this 
load module (PRELOAD) 

S = 00 for non-sharable 

= 01 for job-sharable 

= 10 for system-sharable 

1=0 for explicit activation required 

= 1 for initial activation with root (ILOAD) 

^/ 

F = if reat-virtual oddress correspondence not required 

= 1 if required (FIX) 

VM = Virtual Memory 

BL = Byte Length 

WO = Word Origin 

LM = Load Module 

PL = Page Length 

GO = Granule Origin 
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10. OVERLAY LOADER 



Overlay Structure 

The Overlay Loader is ihelf an overlayed program with a root and the six segmenb os illustrafed in Figure 50. The 
functions of the Root and segments is given in Table 6. 





CCI 


• 


PASSONE 




LIB 


ROOT 


PASSTWO 




MAP 




DIAG 



Figure 50. Overlay Structure of the Overlay Loader 



Table 6. Overlay Loader Segment Functions 



Segment 


Function 


ROOT 


Calls in the first segment (CCI) but thereafter, the segments call in other segments. 
ROOT is a collection of subroutines, tables, buffers, FPTs, DCBs, flags, pointers, 
variables, and temp storage cells. Root is resident at all times. 


CCI 


Reads and interprets all Loader control commands. 


PASSONE 


Mai<es the first pass over the Relocatable Object Modules, satisfies DEF/kEF linkages be- 
tvireen ROMs in the same path, links references to Public Library routines, and allo- 
cates the loaded progrom's control and dummy sections (e.g., assigns absolute core 
addresses). 


LIB 


Searches the library tables for routines to satisfy primary references left unsatisfied 
at segment end. 


PASSTWO 


Mokes the secortd pass over tt>e ROMs, creates absolute core images of segments, 
provides the necessaryCP-Rinterfoce(PCB, Temp Stack, REFd DCBs, DCBTAB, INITTAB, 
and OVLOAD), and writes the absolute load module on the output file. 


MAP 


Outputs the requested information about the loaded program. 


DIAG 


Outputs all Loader diagnostic messages. 
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Overlay Loader ExecBtion 

The Root of the Overlay Loader is lead into the background when the Job Control Processor (JCP) encounters 
an lOLOAD control command on the "C" Device. The JCP allocates six scratch files (XI, X2, X3, X4, X5, and X6) 
in the Background Temp area of the disk unless otherwise specified on a Monitor I ALLOBT command, and three 
blocking buffers unless otherwise specified on a Monitor I POOL command. The core layout of the Overlay Loader 
is illustrated in Figure 51. 



Root 
Segment 



rcB 



Temp Stacks 



Root Code 



DCBTAB 



OVLOAD 



Segment Overlay Area 



Dynamic Table Area 



FWA of Background (K:BACKBG) 



LWA+1 of Overlay Loader (P:END) 



LWA of Bockground (K:BCKENO) 



Figure 51. Overlay Loader Core Layout 



Dynamic Table Area 



The Dynamic Table Area Is an area of core beginning of the LWA+I of the Overlay Loader's code and extending to 
the beginning of the background blocking buffer pool. That is, the Loader uses the remaining core in bock^und 
for a work area. 

The Dynamic Table Area is divided into 16 table areas with boundaries that con change, subject to the length of ttte 
tables. The tables ore built by CCI and PASSONE from information on the control commands and ROMs, and ore 
therefore only dynamic until the beginning of PASSTWO, when the table areas ore fixed. Since these tables are on 
essential part of Hie load process, it is important to understand ttie function of the tables. 



156 



OyMMC TaUt Ofitr 

During the First pass over the object modules, the 16 table areas hove o fixed order as follows: 
FWA of Dynomic Table Area (P:END) 



T:PUBVAL 

I 
T:PUBSYM 

I 
T: VALUE 

« 
T:SEG 

T:DCBV 

T:DCB 

T:ROMI 

♦ 
T:MODIFY 

T:MODULE 

♦ 
B:MT 

t 
T:DECL 

I 
T:CSECT 

I 
T:FWD 

» 
T:FWDX 

I 
T:SYMBOL 



T:VAD< 



LWA+1 of the Dynamic Table Ansa (K:BCKEND) 

For better reader comprehension, the table area descriptions given below are given in o logical order rather than 
the program listing sequence. 

T:SYMBOL and LVALUE 

The program's external table is a collection of DEFs, PREFs, SREFs, and DSECTs (excluding DCBs). The external 
table is divided into two ports: one containing the EBCDIC name of the external (T:SYMBOL), and the other 
containing the value (T:VALUE). Each table is divided into segment subtobles that overlay eoch other in core 
in the some way that the segments themselves ore overloyed. For example, the external tables of a program with 
the overlay structure 



would exist in core (for both PASSONE and PASSTWO) as follows: 



For 
Root 

lo 



For 
Segl 



For 
Seg2 



For 
Seg 3 



For 
Seg 4 



I |o |o lo 
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Sagments in diffisrent paths cannot communicate (i.o. , the lubtobles of segments in different paths are never. in core ' 
at the some time). A segment's T:SYMBOL and T:VALUE subtobtes ore built by CCI ond PASSONE and saved on a 
disk scroteh file at path end (i.e. , when the next segment starts a new path). However, only tables overlay^ by 
the new segment at path end get written out. For example, at the end of path (0, 1,2), segment 2 would be written 
out; at the end of path 0, 1,3), segments 3 and 1 would get written out; and at the end of the program, segments 4 
and would get written out. 

A segment's subtable consists of oil DEFs in the segment, OSECTs not allocated in a previous segment of the path, 
and any REFs not satisfied by DEFs in o previous segment of the path. Since the DEF/HEF links ore all satisfied by 
PASSONE, T:SYMBOL is not used by PASSTWO. 



T-.VALLE ENTRY FORN\ATS 

T:VALUE entries ore numbered from 1 to n and hove a fixed size of 5 bytes, with the format 

Byte Byte 1 Byte 2 Byte 3 Byte 4 



bl\ 


D 


V 


C 


F 


LB 


1 , 1 1 

Value 

1 1 4— 1 1 



12 3 45678 



1516 



2324 



3132 



39 



where 




TV 


is the entry type 




TV = 00 DEF 




TV = 01 DSECT 




TV = 10 SREF 




TV = 11 PREF 



D is a flog specifying whether or not the external is defined/allocated/satisfied. 
D = 1 external has been defined/allocated/satisfied. 
D=0 external is undefined/unallocated/unsatisfied. 

V is a flog specifying the type of value (meaningful only if D = 1). 

V = 1 value is the value of the external. 

V = value is the byte address of the expression defining or satisfying the external in T-.VALX. 

C is o constant (meaningful only if V = 1). 
C = 1 value is a 32-bit constant. 
C = value is a positive or negative address with byte resolution. 

F is a flag specifying whether the external is a duplicate or on original. 
F = 1 external is a duplicate. 
F = external is on origirtol. 

LB specifies source of external. *** 

LB = 00 external from input ROM or CC. 
LB = 01 external from System Library. 
LB = 10 exterrKil from User Library. 

Value is initially set to zero; usage is dependent upon D, V, and C flogs. 
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Since the T: VALUE entries an kept at (mallosponible, unuMd bit combinations are reserved to define the following 
two intermediate external types: 

1. If TY=PREF, C = 0,and V = l, the external i$ on "excluded preP' which means thot the PREF will oouse neither 
library loading nor linkage (including the Public Library). Instead, the PREF will be sotisHed by o DEF in o 
segment further up the path. 

2. If TY = DSECT, D = 1, and V =0, the external was input from the :RES control command and is to be allocated 
at the end of the segment. 

T:SYMBOL ENTRY FORMATS 

TtSYMBOL is a byte table with variable sized entries that are numbered from 1 to n. There are three types of 
entries; EBCDIC, "continuotion", and "pseudo". The EBCDIC entry contoins the name of the external. The 
"continuation" entry contains the size of a DSECT and only follows o DSECT entry. The "pseudo" entry is a FWD 
or CSECT entry that has been added to T:SYMBOL because the entry was referenced in a T:VALX expression that 
could not be resolved at "module end" . The entry formats ore as follows: 

(Range = X'02' to X'40) 



EBCDIC entry: 


byte 

byte 
byte 




1 

n 


1 
2 
3 




N + 1 




EBCDIC Char, 




I 7 




EBCDIC Char„ 


"Continuation 


7 


entry; 


1 


10 




Byte 




size of 




DSECT 


"Pseudo" 


I 7 


entry; 





1 



= X'84' 

A byte size of -1 indicates that the entry is a reference to a DSECT 
allocated in o later segment. 



= x'or 

I 7 

Note that the first byte contains the byte count of the entry (in bits 1-7). 



T:PUBVALnirfTJ>UBSYM 

Each (\jblic Library file has an external table of DEFs (there ore no DSECTs or unsatisfied REFs in a Public Library) 
that is divided into two ports; VALUE and SYMBOL. T:PUBVAL contains the VALUE tables for each public library 
specified in the PUB LIB option of the lOLOAD control command, and T:PU6SYM contains the corresponding SYMBOL 
tables. Since the sizes of the table areas are Tixed once T:PUBVAL and T:PUBSYM have been input, there ore only 
14 dynamic table areas. 

T:PUBVAL ENTRY FORMATS 

TiPUBVAL entries are numbered from 1 to n and hove a fixed size of five bytes. Since the size of T:PUBVALdoes not 
change, TtPUBSYM is located at the next doubleword boundary following TtPUBVAL . T:PUBVAL entries have the format 



ByteO 



TY 



LB 



Byte 1 



Byte 2 



Byte 3 



Byte 4 



Value 



12345678 
virhere 

TY = 00 = DEF 

D=I the DEF has been defined. 



15 16 



2324 



3132 



39 
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V=1 valtw it the vaiu« of th« OEF. 

C = 1 value it a 32-bit comtant. 

C = value is a positive or negative address with b/te resolution. 

F=0 not a duplicate OEF. 

LB = 1 1 PUBLIB 

Note that the T: VALUE and T:PUBVAL entries hove the some formats even though the T:PUBVAL entries are a subset 
of the T: VALUE format. 



T:PUBSYM ENTRY FORMATS 

T:PUBSYM it a byte table with variable sized entries that are numbered from 1 to n. Since the size of T:PUBSYM 
does not change, the table following is located at the next doublewordboundaryafterT:PUBSYM. TrPUBSYM entries 
have tbe formot 

byte 
byte 1 



byte n 



N+ 1 


EBCDIC Char, 


7 


1 EBCDIC Chofn 



T:VALX 

External definitions are defined with expressions. If the expression can be resolved, its value is stared in the DEFs 
T:VALUE entry. If the expression cannot be resolved, it it taved in TtVALX and the byte addrest of the expression 
is stored in the DEFs T:VALUE entry. 

Once an expression is resolved, its entry is zeroed out. The T:VALXentries cannot be packed toregoin space, since 
the T:VALUE entries contain address pointers, however, empty entries ore reused where pocsible. 

Expressions hove a variable size and are mode up of expression bytes, combined in any order. The formats for the 
T:VALX expression bytes (slightly different than the object language) are 



Add Constant (X'Ol') 



Byte 



000 1 



Byte 1 



Byte 2 



+ 



Byte 3 



Byte 4 



32 -bit value 



78 



15 16 



-I- 



2324 



3132 



39 



This item causes the specified four-byte conttont to be added to the Looder't expression occvmulator. Negative con- 
stants ore represented in two's complement form: 

Add/Subt Value (X'2N') 





Byt 


el 


3 






Byte 1 , Byte 2 


00 


10 


S 


F 


RR 


FWD Number | 


TB 


Entry | 



1 23456789 10 



15 16 



23 



where 
S= 1 
S = 



subtract value, 
odd value. 
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F = 1 ocfct/cubtract value of T:FWD entry where the FWD number it in bytei I and 2. 

F = odd/subtract value of TABLE entry where 

TB = 00 Entry points to T:DCB. 
TB = OI Entry points to T:VALU^T:SYMBOL. 
TB = 10 Entry points to T:CSECT. 
TB = n Entry points to TtPUBVAL/TrPUBSYM. 

RR = 00 byte address resolution. 

RR = 01 halfword address resolution. 

RR = 10 word address resolution. 

RR = 11 doubleword address resolution. 

This item causes the value of the FWD or TABLE entry to be converted to the specified oddress resolution (only if the 
value is on address) and added to the Loader's expression accumulator. Note that expressions involving T:FWD ond 
T:CSECT entries point to the current ROM's FWD and CSECT tables. If these expressions are not resolved at module 
end, the Loader createsdummyT:SYMBOLandT:VALUE entries from the FWD or CSECT entry and changes the pointer 
in the expression to point to the dummy entry in T:VALUE. However, unresolved expressions rarely happen. 

Address Resolution (X'3N') 

Byte 



00 


11 


10 


RR 1 



12 3 4 5 6 7 

where 

ID = 00 changes the partially resolved expression (if an address) to the specified resolution. 

ID = 01 identifies the expression as a positive absolute address with the specified resolution (add absolute 
section). 

ID = 10 identiPies the expression as a negative absolute address with the specified resolution (subtract abso- 
lute section). 

RR = 00 byte address resolution. 

RR = 01 halfword address resolution. 

RR = 10 word address resolution. 

RR = 1 1 doubleword address resolution. 

Expression End (X'02') 

Byte 





















1 






7 

This item identifies the end of an expression (the value of which is contained in the Loader's expression accumulator). 

T:OCB 

T:DCB contains the DEFs and REFs that are recognized as either system (M:) or user (F:) DCBs. DCBs declared as 
external definitions must exist in the Root segment. The Loader allocates space in part two of the Root for DCBs 
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TY|D|VC|F|LB 


i^^:^^ Hyt. Address 1 


El 


E2 


E3 


E4 


E5 


E6 

1 H 1 


E7 


E8 



12 345678 



1213 1516 



2324 



31 



that ore declared external references, and supplies default copies of system DCBs. TtOCB is resident at all times. 
Entries have a fixed size of three words and have the format 

WordO 
I 



where 

Word 
TY = 00 
TY= 11 
D= 1 
D = 
V= 1 
V = 
C=1 

C = 
F = 
LB = 00 
LB = 01 
LB= 10 
Word 1.2 
El -E8 



DEF (coded in the Root by the user). 

PREF (allocated in Root port 2 by Loader). 

defined or allocated. 

un deFI ned/una 1 1 ocoted . 

address is the byte value of the DCB, only meaningful if = I. 

address points to an expression in T:VALX, only meaningful if D = 1. 

the DCB was defined with a value that is either o constant or on illegal address (i.e., nt^otive or 
mixed resolution), only meaningful if V = 1. 

the value of the DCB is on address, only meaningful if V = 1. 

DCB cannot be a duplicate (duplicates ore put in T:SYMB0LA;VALUE). 

the DCB was input from a nonlibrary ROM. 

the DCB was input from the System Library. 

the DCB was input from the User Library. 

is the EBCDIC noma of the DCB, padded with bloiks if necessary. 



T:SEG 

T:SEG contains information obout the program's segments and is resident at all times. One entry Is allocated per 
segment. Entries have a fixed size of ten words and have the fbmnat 



WordO 
1 



Segment Ident 



Gran no. of T:VALUE (I) on X4 



Gran no. of T:SYMBOL(I)on 
X5 



BDof T: VALUE (I) in TrVALUE 



BDof T:SYMBOL(I)in 
TrSYMBOL 



Byte length of T:MODIFY 



DW EXLOC of SEG 



W 



M 



E A 



Link Ident 



Gron no. of T:MODIFY/ 
T:MODULE on X3 



Gran no. of core image on 
Progroro File 



Byte length of TrVALUE (!) 



Byte length of T:SYMBOL (I) 



Byte length of T:MODULE 



DW length of SEG 



Entry Address 



Byte Length of Librory Routines in SEG 



Byte lerjgth of load-module image of segment 
0'l'2'3'4'5 6'7 8'9' 12'l3U'l5'l6 



31 



where 

Gron no. 



the granule number in the disk file where the table begins. If the disk file overflows, Gron No. 
will equal X'FFFF'. Granules ore numbered from Oto n. 
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(I) Mgrnenf's subtable. ' 

BD byte displacement. 

EXLOC execution location. 

DW doubleword. 

R = 1 error severity level set on at least one ROM in the segment. 

R = error severity level reset on every ROM in the segment. 

L= 1 load error (duplicate OEFs, unsatisfied REFs, etc.). 

L = no loading errors in SEG. 

W = 1 TtVALUE (I) and T5YMBOL (I) output on X4, X5. 

W ,= T.-VALUE (1) and TiSYMBOL (I) not output on X4, X5. 

F = 1 segment is fixed in real memory (FIX option). 

F = segment may be mapped onto any available real memory. 

I = 1 segment is to be initially loaded with the root (ILOAD option). 

I = segment will be loaded only on explicit request. 

M = 00 segment is any-access. 

M = 01 segment is read-and-execute. 

M = 10 segment is read-only. 

M = 11 segment is no-access. 

S = 00 segment is non-sharable. 

S = 01 segment is job-level sharable. 

S = 10 segment is system-level sharable. 

S = 1 1 unused. 
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P = I ••gmant mutt be praloodad thorabls (PRELOAD option). 

P = segment may be loaded from the load module being built. 

EA = 00 value in bits 15-31 (if nonzero) is last entry address (in words) encountered on non-Lib RO'^. 

EA = 01 unused. 

EA = 10 SEG's entry address input from CC and value in bits 15-31 is the entry address (in words). 

EA = 11 SEG's entry address input from CC and value in bits 15-31 is the entry number of the T:SYMBOL/ 
T:VALUE DEF specified on the CC. 



B:MT 

There are four tables associated with each ROM loaded (including library ROMs): T:DECL, TKZSECT, T:f=WD, and 
T:FDX. The size of these tobies can be extremely large or small, depending upon which processor produced the ROM 
and the content of the program. To conserve time and space, these tables are packed into the Module Tables buffer 
(B:MT) at module end, and output to the X2 Temp File on the disk only when either the buffer is full or ot segment 
end. The size allocated for B:MT is dependent upon the size of the Dynamic Tables area and is made a multiple of 
the sector size of the X2 disk file. 



T:DECL 

DEFs, PREFs, SREFs, DSECTs, and CSECTs are referenced in the object language bydeclaration number. Therefore, 
associated with each ROM is a table of declarations whose entries point to DEF, REF, DSECT, and CSECT entries in 
other tables. 

According to the object language convention, entry zero points to the startdard control section declaration. Entries 
ore numbered from to n; have a fixed size of two bytes; and hove the format 



TB 



Entry 



012 15 

where 

TB = 00 Entry points to TrDCB. 

TB = 01 Entry points to T:SYMBOl/T:VALUE. 

TB = 10 Entry points to TKISECT (associated with current ROM). 

TB = 1 1 Entry points to T:PUBSYMA:PUBVAL. 

Entry Table entry number. The range is 1 through 16, 383. 
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T^SECT 

Associated with each ROM is o table of standard and nonstandard control sections. A nonstandard control section 
is allocated by the Loader when the declaration is encountered. The standard control section is allocated when the 
first reference to declorotion is encountered in on expression defining the origin load item. T:CSECT entries are 
numbered from I to n; hove a fixed size of two words; and hove the format 



WordO 


^$3^vc§$$$^^$§ 


&ytt oddress 


Word 1 


»M^^^^ 


Size 





012 345 1213 


where 




WordO 




D= I 


allocated. 


V= 1 


volue. 


C=0 


address. 


Byte address first byte address of the control section 


Word ? 




Size 


Number of bytes in the control section. 



31 



T:FMfD 

( ^^ Associated with each ROM is o table of forward reference definitions (forwards). Each forward is identified by o 

random two-byte reference number. Thus, when a forward is referenced in on expression, the T:FWO table for that 
ROM must be searched for o matching number. T:FWD entries have a fixed size of two words with the format 



where 
D= 1 
V= 1 

v = o 

C= 1 

c = o 



Word 
Word 1 



Forwo^n^*., P^SS^SmSS^ 





V 


c 


M 


V2K2 1 



1516 



262728 31 



defined. 

value is the value of the resolved expression. 

value is a byte displacement pointer to the expression in T:FWDX. 

value is o constant (only meaningful if V = I). 

value is a positive or negotive address with byte resolution (only meaningful if V = I). 



TrFWDX 

Forwards are defined with expressions and ore of two types: the first is defined with an expression that can be re- 
solved by module end; the second type is defined with on expression that involves on external DEF, REF, or DSECT 
(many of th«e cannot be resolved at module end). Associated with each ROM is a table containing oil unresolved 
expressions defining FWDs. When o T:FWOX expression is resolved, its entry is zeroed out ond the spoce reused, if 
passible. T:FWDX entries have the some format as T:VALX entries. 
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TMODULE 

Each segment has a T:MODULE table. TrMODULE contains infenrntion about a segment's Relocatable Object 
Modules (ROMs). One entry is allocated per ROM. Entries have a fixed sixe of five words and have the format 





1 12.13.1415 


16.17.18 31 


WordO 


V 


Entry no. 


G 


LB 


^ 


Record Displacerwnt 


1 


Gran no. of B:MT on X2, or 
BDof T:DECL(J) in B:MT 


Byte length of T:DECL (J) 


2 


BD of TrCSECT (J) in B:MT 


Byte length of TrCSECT (J) 


3 


BD of Trf=WD (J) in B:MT 


Byte length of Ti=WO (J) 


4 


BD of T:FWDX (J) in B:MT 


Byte length of TtFWDX (J) 



where 

V= 1 
V=0 



Entry no. in bits 1-12 points to T:DCBV. 

Entry no, in bits 1-12 points to T:DCBF, or is zero. 



Entry no. the entry number of the [)CB (in either T:DCBV or T:DCBF) that points to the disk file where the 
ROM is located, or zero, to load onother ROM from the previous source. 

G = 1 T:DECL (J) begins ot byte zero in B:MT and HWO (holfword zero) in word 1 contains the granule no. 

of B:MT on X2. If the Granule no. equals X'FFFF', X2 hos overflowed and B:MT did not get saved on the 
disk. 

G = T:DECL (J) is located in B:MT at the byte displacement specified in HWO of word 1. 

LB = 00 not Library ROM. 

LB = 01 ROM from System Library (SP area of disk). 

LB = 10 ROM frtMn User Library (FP area of disk). 

Record displacement in the MODULE file (only meaningful for library ROMs). 

Pock = 1 if the PACK input option was associated with this ROM. 



T:ROMI 

T:ROMI contains the information necessary for PASSONE to load a segment's ROMs. T:ROMI is built by CCI from 
the input options specified on the segment's :ROOT, :SEG, or :PUBLIB control command, or by :LIB to point to the 
library routines required for the segment. At the beginning of PASSTWO, the area size for T:ROMI is set to zero. 
There are three types of T:ROMI entries, as illustrated below, and entries have a fixed size of one word. 

Entry for ROMs input from user files (built by CCI): 



NROM 



c^RS^V Entry No. 



15 16 17 18 19 20 



31 



wher 



NROM is the number of ROMs to input or contains -5, which means to input until lEOD is encountered. 
This halfword is used as a decreasing counter by PASSONE and eventually equals zero. 

Bits 16-23 always equal zero to specify entry type. 
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V = 1 Entry no. in bit* 20-31 points to TiDCBV. 

V s: Entry no. in bits 20-31 poinH to T:DCBF. 

Entry no. is the entry number of the DCB in TrDCBF or ossignment in T:DCBV that points to the medium 
where the ROM is located. 

PACK =1 if the PACK input option wos associoted with this ROM. 
Entry for the NONE option (built by CCI): 



31 



Entry for ROAAs input from the System or User Library (built by LIB): 



NROM 


Record displacement 



1516 



31 



where 

NROM is described above. 

Record displacement is the record displacement of the ROM in the MODULE file of the oreo specified by 
FLrLBLD. 

Library ROM entries are distinguished from the other two entry types by the Loader flag FL:LBLO. The flag is always 
reset when the other entry types are in T:ROMI. 



TJtCBV 

T:DCBV is a table of DCB assignments for the various ROM media specified (other than GO) on the input options of 
the :ROOT and :SEG, or :PUBLIB control commands. One entry is created for each input option specified. T:DCBV 
is resident atoll times. T:DCBV entries ore numbered from I to n, and hove the following format: 

12 3 O 31 

5^ 



WordO 
1 
2 
3 

4 
5 



EBCDIC I/O Medium Name (5 words) 



where 



O = 1 if word 1 contains a right-nligned operational label rxime. The remaining flags are ignored. 

O = 0, D = 1 if words 1 and 2 contain a left-oligned device nome. The remaining flogs are ignored. 

O = D = 0, F = 1 if word 1 contains a right-oligned disk area name or blanks, and words 2 and 3 contain a 
left-aligrted file name. 

O = D = 0, F=l, A = l if words 4 and 5 contain a left-«ligrted disk file account name. 
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TMODIFY 

tach segment's :MODIFY commands are translated into obiect language load items and stored in the segment's 
TtMODIFY toble, and each :MODlFY command is translated into a T:MODULE entry. Entries begin with on "origin" 
load item and are terminated by either the next "origin" load item or o "module er>d" load item. Entries are made 
up of the load items described below and expressions in the T:VALX/T:FV/DX format: 

Origin (X'04') 

This one-byte item sets the load-location counter to the value designated by the expression 0" T:VALX format) 
immediately following the origin control byte. The value of the expression equals the location specified on the 
:MODIFY command. 

Lood Absolute (X'44') 

This one-byte item causes the next four bytes to be loaded absolutely and the load-location counter advanced 
appropriately. 

Define Field (X'07') 
(X'FF') 
(field length) 

This three-byte item defines an expression value to be added to the address field of the previously loaded four- 
byte word. The expression is in T:VALX format end immediately follows the 'field length' byte. 

Lood Expression (X'60') 

This one-byte item causes an expression value to be loaded absolutely and the load-location counter advanced 
appropriately. The expression to be loaded is in T:VALX format and immediately follows the 'load expression' 
control byte. 

Module End (X'OE') 

This one-byte item terminates the load items in TrMODIFY. 



Ute of the Dynmic Tibie Ana During LIB 

During the library search, LIB temporarily reorganizes the Dynamic Table area by packing the 16 tables together at 
the top of the area. LIB uses the remaining space for its tables. The core layout of these tables and their formats 
are illustrated in Figure 52. 



TiLOEF 

T:LDEF is located in the Dynamic Table area only when the LIB segment is executing and is used by LIB to satisfy 
REFs to library routines. Initially, T:LDEF contains the following items: 

1. All unsatisfied REFs from the current tegment's T:VALUE subtoble. 

2. All excluded PREFs from the current segment's T:VALUE subtoble. 
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Packed 

Dynamic 

Tables 

(tables 

listed are 

used by 

LIB) 



T:PUBVAL 
T-.PUBSYM 
T:VALUE 



<- 



T:SYMBOL 



e 



T:LDEF 



TLROM 



EBCDIC 

DEFREF 

MODIR 

files' buffer 



FWAof 
Dynamic Table Area 



LWA+I of the 
Dynamic Table Area 



TtPUBVAL 

♦ 
T:PUBSYM 

T:LDEF 



<> 



TrSYMBOL 



Overlays 
' T-.VALUE 



TrLROM 



EBCDIC 

DEFREF 

MODIR 

nies' buffer 



Atoved to 
the end of 
T:LDEF, if 
necessary. 



Core layout of the Area If the 
packed tables remain in core. 



Core layout of the Area if the 
packed tables ore saved on X6. 



Figure 52. LIB Reorganization of Dynamic Table Area 



3. All DEFs and DSECTs in the path T:VALUE fable that are from the same library as the one being searched. 



4, All Public Librory (TtPUBVAL) DEFs. 



The Library DEFs ore included so that library routines loaded in previous segments of the Public Library will not be 
duplicated. The excluded PREFs (thot inhibit library looding)are treated as DEFs. Since library routines may them- 
selves reference other library routines, the set of DEFs and REFs associated with a library routine ore included in 
T:LDEF if, and only if, at least one of the DEFs satisfies o REF in T:LDEF. When a REF is satisfied it is changed 
to a DEF. Eventuolly, T-.LDEF contains library DEFs, ony REFs that cannot be satisfied in the Library, and the 
excluded PREFs. 
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T:LDEF has a variable number of entrict with the count kept in entry 0. Entries have a fixed size of two bytes with 
the format 



1 2 



entry 




T:LDEF 


entry count 









. 


15 


entry n 


DR 


Value 1 



15 



where 

DR = 00 null entry. 

DR = 01 DEF or excluded PREF. 

DR= 10 unsatisfied PREF. 

DR=11 DSECT, 

Value entry number in the T:SYMBOL, that is later changed to the corresponding entry's byte offset in 

the EBCDIC file. 



T:LROM 

T:LROM is locoted in the Dynamic Table area only when the LIB segment is executing arid contains pointers to li- 
brary routines whose DEFs have satisfied REFs in T:LDEF. That is, T:LROM points to the library routines that ore to 
be loaded along with the segment. 

T:LRO.M entries initially point to a library ROM's entry in the MODIR file and then get changed to point to the cor- 
responding ROM's location in the MODULE file. TrLROM has a variable rtumber of entries, with the count kept in 
entry 0. T:LROM is built backwards but has forward entries. Entries have a fixed size of two bytes with the format 



entry n I 

t " 



Vol 



ue 



t 



15 



whe 



entry 



TrLROM entry count 



15 



value holfword offset of the library ROM's entry in the MODIR file, which is later changed to the starting 
record number of the ROM in the MODULE file. 



MODULE Fie 

The MODULE file is a blocked sequential file, with 120 bytes per record, that contains the Library's ROMs. 
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f BCDIC Hh 



The EBCDIC file is an unblocked tequenHal file consisting of one variable lengHi record. The EBCDIC file contains 
the unique EBCDIC names of ail DEFs and REFs declared in the ROMs in the MODULE file. Entries have a variable 
number of bytes with the format 

byteO 






N+ I 


1 


EBCDIC Char, 


n 


7 


EBCDIC Char„ | 



MODIR Fiia 

The MODIR file is an unblocked sequential file consisting of one variable length record. Each MODJR file entry 
corresponds to o ROM on the MODULE file and contains the name of the ROM, its location on the MODULE file, 
and the number of records in the ROM. Entries have a fixed size of three words with the format 



word 
word 1 
word 2 



MODULE file record no. 



ROM's no. of records 



First four bytes of EBCDIC name 



Lost four bytes of EBCDIC name 

4 



1516 



31 



OEFREF Rh 

The DEFREF file is an unblocked sequential file consisting of one variable length record. Each entry in the DEFREF 
file corresponds to a ROM in the MODULE file and contains all the external DEFs and REFs decbred in the ROM, 
plus o pointer to the ROM's entry in the MODIR file. Entries hove a variable number of halfwords with the format 



halfword 
ho If word 1 
halfword 2 



halfword n 



Entry size 


MODIR file index 


DR 


EBCDIC file index 


1 


1 


2 


15 


Idr 


EBCDIC file index 



I 2 



15 



' OEF, 
DEF2 

DEF„ 

REF, 
REF2 

REF. 



where 



Entry size number of halfwords in the entry (including itself), 

MODIR file index relative halfword of the ROM's corresponding entry in the MODIR file. X'E&=F' means 
that the entry has been deleted. 

DR = 00 not used. 

DR = OI DEF, 

DR = 10 PREF. 

DR=1I DSEa, 

EBCDIC file index relative byte of the external name entry in the EBCDIC file. 
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Hm af DfMMK TiUi Am 



PASS1W0 



PASSTWO reorgonizes the Dynamic Table area by moving the resident tables T:SEG, TtOCBV, and T:DCB to the 
end of T:PUBVAL. PASSTWOuses the remaining space to read in the necessorytoblesbuiltduringPASSONEto build 
its own tables and to create the core image of the segment. The core layout of these tables and their format 
is illustroted in Figure 53. 

T:6RAN 

Since the Work area has a finite size that varies according to the size of B:MT, it may not be large enough to con- 
tain o segment's total core image at oil times. Therefore, before o segment is created, its core image length is 
divided into granule size partitions, where the granule size equals the sector size of the program file. T:GRAN 



T:PUBVAL 

T:SEG 

♦ 
T-.DCBV 

\ 
T:DCB 

TrVALUE 

T:GRAN 

i 
Work Areo 



B:MT 

T:MODIFY 

TrMODULE 



T:VALX 



FWAof 
Dynamic Table Area 



LWA+1 of the 
Dynamic Table Area 



T:PUBVAL 

( 
T:SEG 

T:DCBV 

t 
T:DCB 

♦ 
T:ASSN 

i 
T:GRAN 

I 
Work Area 



T:VALX 



Core layout of the Area while 
the segments ore being loaded. 



Core layout of the Area while 
part two of the Root is being built. 



Figure 53. PASSTWO Reorganization of Dynamic Table Area 
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entries poinf to the location of o segment's partition (if created) either in core or on the program file. T:GRAN 
has the following format: 

entry 
1 





n = No. of granule partitions in the seg. 




Granule partition 1 





• 


31 


Granule portition n 



31 

T;GRAN entries have a fixed size of one word with three different formats. 
If the granule partition exists in the Work Area: 



WA of granule partition in the 
Work oreo 



12 13 14 15 31 

If the granule partition exists on its corresponding granule in the Program RIe: 



1- 



-1 



= X'FFFBOOOO- 



12 13 31 

If the granule partition has not been allocated; and data has not yet been loaded into that area of the segment: 



31 



T:ASSN 

T:ASSN contains the information necessary to reassign DCBs as specified on : ASSIGN commands. T:ASSN is located 
in the Dynamic Table area during PASSTWO (after oil the segments hove been loaded) and is built by CCI. Each 
sASSIGN commar)d is translated into a T:ASSN entry. Entries have a fixed size of ten words with the format 



WordO 



Byte address of DCB's execution location 



31 



Word address of DCB's entry in T:DCB 



31 






12 3 



31 



EBCDIC I/O Medium Nome 

(format indicated by word 2} 
(5 words) 



31 
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vc 



vc 



6V 



7V 




5^ 



8V 



?^ 



^ 



where 



O = I if word 1 contains a right-oligned operational label name. The remaining flags are ignored. 

O = 0, D = 1 if words 1 and 2 contain a left^ligned device name. The remaining flags are ignored. 

O = D = 0, F = 1 if word 1 contains a right-aligned disk area rtame or blanks, and words 2 and 3 contain 

a left-aligned file name. 

O = = 0, F = 1, A = 1 if words 4 and 5 contain a left-aligned disk file account name. 
kC: if reset kV is unused; if set, kV is to be inserted. 
IV: value for MOD field. 
2V: value for ASC field. 
3V: value for DRC field. 
4V: value for D/P field. 
5V: value for VFC field, 
6V: value for BTD field. 
7V: value for NRT field. 
8V: value for RSZ field. 



MAP Um of DYmmk Table Am 

MAP moves the resident tables T:SEG and T:DCB to the top of the area, and uses the remaining space to read in and 
reference the tables necessary for the MAP output. MAP does not build any tables. The core layout of the table 
referenced by MAP is tiiustroted in Figure 54. 



DIAG Use of Dyminic Table Area 

DIAG only uses tfie Dynamic Table area to reference TSEG and T:MODULE. 

ROOT TABL 

Two tables in the Root, T:PL and T:DCBF, have a fixed size and are referenced by other tobies. Their format and 
use is given below. The usage and format of other tobies in the Root are well documented in the Overlay Looder's 
listing and are not detailed in this manuol. 
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Figure 54. MAP Toble Reference 
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T#L 



T:PL containt the InfonnaHon neccnary to create TtPUBSYM and T:PUBVAL and to lood the Public Libraries speci- 
fied on the iOLOAD control command. T:PL exists in the Root and has o maximum of three entries. Table end is 
indicated by a word of zeros. Entries have a fixed size of eight words with the format 



WordO 


First foor EBCDIC bytes of PUBLIB name 


1 


Last four EBCDIC bytes of PUBLIB name 


2 


Word address of PUBLIB's execution location 


3 


Number of bytes in the PUBLIB 


4 


Granule no. of PUBLIB's symbol table 


5 


Number of bytes in PUBLIB's symbol table 


6 


Granule no. of PUBLIB's value table 


7 


Number of bytes in PUBLIB's value table 






• 


31 


Wondat 

Imt 


1 Zeros 


1 



entry + 1 



31 



T:DCBF 

T;DCBF contains the set of fixed DCBs that are required by the Loader. Each entry contains one DCB. T:DCBF has 
a fixed number of entries and exists in the Root. T:DCBF entries are numbered from 1 to IB, and have the fixed 
order given in Table 7. 

Table 7. T:DCBF Entries 



Entry 



Mnemonic 



Pointer To 



1 


F:PUBL 


2 


F:DEVICE 


3 


M:GO 


4 


M:OV 


5 


M:X1 


6 


M:X2 


7 


M:X3 


8 


M:X4 


9 


M:X5 


10 


M:X6 


11 


F:MODIR 


12 


F:EBCDIC 


13 


F:DEFREF 


14 


FiMODULE 


15 


M:C 


16 


M:LL 


17 


M:OC 


18 


M:LO 



Files specified in the PUBLIB option of IOLOAD. 

Devices specified in the DEVICE and OPLB input options. 

GO file in the Backgrourxi Temp area. 

Either OV or the file specified in the FILE option of IOLOAD. 

XI in the Background Temp area. 

X2 in the Background Temp area . 

X3 in the Background Temp area. 

X4 in the Background Temp area. 

X5 in the Background Temp area. 

X6 in the Background Temp area. 

MODIR file in either the SP or FP area. 

EBCDIC file in either the SP or FP area. 

DEFREF file in either the SP or FP area. 

MODULE file in either the SP or FP area. .« 

C operotiofKil label. 

LL operational label. 

OC operational label. 

LO operational label. 
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All TrDCBF entries have the itandard IT-word DCB format, with two exceptions: OFLOW and NIO, that ore used 
only for the M:OV, M:X1, M:X2, M:X3, M:X4, M:X5, and M:X6 DCB*. The 11 -word DCB formot is 



WordO 



TTL = 7 



^ 



^ 



^ 



N^ 



7 10 14 



3^^i — F?^N5^^^^^3s~;jssn7ra — 



ASSN 



19 2223 26272B 31 



NRT ^^^^^° 


D 

E 
V 

F 





TYPE 


DEV/OPLB/ 
RFILE 



78 



OFLOW 



1415161718 2324 

^ 



31 



BUF 



1415 



31 



RSZ 


ERA 



1415 



31 



NIO 


ABA 



1415 



31 



El 


E2 


E3 


E4 



78 



15 16 



2324 



31 



E5 


E6 


E7 


■ 
E8 



78 



1516 



2324 



31 




ACNTl 


ACNT2 


ACNT3 


ACNT4 



78 



1516 



2324 



31 



10 



ACNT5 


ACNT6 


ACNT7 


ACNT8 



78 



1516 



2324 



31 



where 

OFLOW = EOT not encountered. 

OFLOW = 1 EOT encountered. 

NIO number of records (for XI) or granules required. 
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Scratch Files 

The six scratch fil«s in the Background Temp area of the disk ore used b/ the Loader as temporary storage and ore 
written durirtg the first pass over the object modules. The number of granules required b/ each scratch file is .cal- 
culated (whether the file overflows or not)and saved in the DCB assigned to the file. If ony of these files overflows 
(e.g., if the EOT is encountered during o Write operation), H>e Loader continues PASSONE, skips PASSTWO, then 
calls the MAP to communicate the number of granules required for each scratch file to the user. The Loader's use 
of these files is defined in Table 8. 



^ ) 



Table 8. Background Scratch Files 



File Nome 


Loader Use 


XI 


A sequential file with blocked record formot. Record size equals 120 bytes; granule 
size equals 256 words. ROMs input from non-RAD devices ore copied onto XI. 


X2 


A direct access file with the granule size set equal to the sector size. The module's 
tables (T:DECL, TtCSECT, T:FWD, and T:WDX) are output on X2 when either B':MT is 
full or at segment end. 


X3 


A direct access file with the granule size set equal to the sector size. A segment's 
T:MODIFY and T:MODULE tables are packed together at segment end and output 
onX3. 


X4 


A direct access file with the granule size set equal to the sector size. A segment's 
T: VALUE subtable is output on X4 when the end of a path is encountered and the seg- 
ment is being overlayed by another segment. 


X5 


A direct access file with the granule size set equal to the sector size. A segment's 
T:SYMBOL subtable is output on X5 when the end of a path is encountered and the 
segment is being overlayed by ar>other segment. 


X6 


A direct access file with the granule size set equal to the sector size. The LIB over- 
lay packs the 16 Dynamic Tables at the top of the Dynomic Table area and outputs the 
"pack" on X6 only if the remaining area will rwt contain the tables required for the 
library search. 



Preiram File Fannat 

The format for the Program File is illustrated in Figure 55. 



The foreground/tockground program-header format is described in the "CP-R Tables Format" chapter. The Public 
Library (PUBLIB) header forrrat is also described in that chapter. 
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;ROOT, ;SEG, ond ;PUBLIB Commonds. CCI creates on entry In TrSEG; builds T:ROM] and T:DCBV entries from 
the specified input options; allocates space for tfie PCB in the Root segment; and for the :SEG command, calls the 
PATHEND subroutine. PATHEND determines if the segment starts a different path; if so, writes out the TiSYMBOL 
and T: VALUE sublables for the overlaid port of the prior path on the disk scratch files; and sets and byte dispioce- 
ment pointers for the new segment's T:SYMBOL and T:VALUE sublables. 



UgicBlFiowofPASSONE 

PASSONE branches to process T:MODIFY if CCI has just been previously called by PASSONE to input :MODIFY 
commands. Otherwise, PASSONE processes T:ROMI which has been built by either CCI or UB. PASSONE inputs 
the ROMs from the devices specified in TrROMI; builds T:MODULE entries for each ROM input; saves ROMs input 
from non-disk devices onto the XI scratch file; and scons the ROMs for pass-one type load items. It then builds the 
following entries: 

1. Parallel T:SYMBOL and T:VALUE entries from external DEF, PREF, SREF, and DSECT declareitions. Entries 
in T:VALX ore built when expressions defining DEFs cannot be resolved. Except for bian|: COMMON, 
a DSECT is allocated when first encountered, and its oddress is stored in the T:VALUE entry. 

2. T:DCB entries from external DEF ar»d REF declarations that begin with either M; or F:. The address of the 
DCB is either defined with on expression (for DEFs), or allocated by PASSTWO (for REFs) and stored in the 
T:DCB entry. 

3. TrCSECT entries and allocates CSECTs when encountered, 

4. T:FWD entries when FWDs ore defined. Entries in T:FWDX are built when expressions defining FWDs can- 
not be resolved. 

5. Entries in T:DECL whenever a DEF, REF, SREF, CSECT, or DSECT declaration is encountered. 



At module end, the four module tables (TrDECL, TrCSECT, TrFWD, and T:FWDX)are packed together and moved to 
B:MT. If the buffer is full, the tables ore output on X2. 

When all the entries in T:ROMI have been processed, PASSONE determines whether the librariesspeciPied have been 
searched. If not, PASSONE colls LIB to search the library specified. Note that the library is searched and the 
ROMs from the library are loaded before the next librory is searched. 

If there are any :MODIFY commands for the segment, PASSONE colls CCI. After CCI recoils PASSONE, conh-ol is 
returned to this point where T:MODIFY and T:MODULE are packed together and output on X3. 

If there is a :SEG command in B:C, PASSONE colls CCI. Otherwise, the end of PASSONE is signaled. Blank 
COMMON is allocated at the end of the longest path (if not allocated previously) and the remoining T:SYM80L, 
T:VALUE subtobles are output. The resident table areas (T:DCB, T:SEG, T:DCBV, T:VALX) ore set equal to the 
actual lengths of the data in the tables. The T;ROMI area length is set to zero (since it is not used by PASSTWO) 
and on end-of-file is written on XI. If any of the six scratch files overflowed, MAP is called; otherwise, PASSTWO 
•s called. 



Ugical How tf LIB 

The LIB segment first pocks the 16 Dynamic Tables together at the top of the Dynamic Table area. The remaining 
space will be used for the UB's tables. (Whenever enough room does not exist for the LIB's tables, the "pock" is 
written on the disk scratch file, X6.) UB then creates T:LDEF, starting from the end of the "pack". 
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GRANULE 



1 

2 



Order in which written 



ID 



Program Header 


last 


Root Part 1 


1st 


Root Part 1 (continued) 

A 




V 
A 




End of Root Port 1 




Segment 1 


2nd 


Segment 2 


3rd 


[ 




Segment n 


last-2 


Root Part 2 


last-1 


Unused 





EOT 



Figure 55. Program File Format 



LoE'ical Flow of the Overlay Loader 

After the Root segment has been loaded by the JCP, the Root colls the Monitor SEGLOAD function to read CCI into 
the overlay oreo and then transfers control to CCI to process the iOLOAD control command. 



tflVcalRsMrofCCI 

When CCI is called, there is usually a control command in the control command buffer (B:C). If not, CCI reads the 
next command into B:C and logs it onto LO. If the command terminates a :ROOT, :SEG, or rMODIFY substack, 
PASSONE is called; if it terminates on lASSIGN substack, PASSTWO is called. If the command does not terminate 
a substack, CCI scans the options specified and performs the following functions for the different control -Abrnmands. 



IOLOAD Command. CCI seh flags; puts the program file name in M:OV DCB; builds T:PL, T:PUBVAL, and 
TrPUBSYM from files specified in the PUBLIB option; allocates the 14 remaining Dynamic Table areas; and if the 
GO option has been specified, builds T:ROMI. 
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The FWA oF the EBCDIC, DEFREF, ond MODIR File*' buFFer is calculated b/subtract!ng the length oF the longest File 
From the end oF the 0/nomic Table area. The EBCDIC File is read into the buFFer and the entries in T:LDEF ore con- 
verted to point From TtSYMBOL to entries in the EBCDIC File. T:LDEF entries not hoving corresponding EBCDIC 
entries are changed to null entries. 

The DEFREF File is then read into the buFFer. LIB uses the DEFREF File to sotisFy PREFs in T:LDEF. Ail theDEFs and 
REFs From an entry in the DEFREF File ore odded to T:LDEF iF at least one oF the DEFs sotisFies a PREF in T:LDEF 
The pointer to the ROM's MODIR File entry is saved in T:LROM, which is built backwards, beginning from the top 
of the DEFREF buffer. The DEFREF search is Finished when all the PREFs in T:LDEF, that con be, are sotisfied. 
T:LROM now contains pointers to all the library ROMs, and T:LDEF is no longer required. 

The MODIR file is read into the buffer and the T:LROM entries are changed to point to the ROM's starting record 
number in the MODULE file. 

The packed tables are read from the disk (if they were saved in X6), and T:LROM is moved to the temporary buffer 
(TEMPBUF) inside the LIB overlay while the Dynamic Tables are being unpacked. Note that if the DIAG segment 
were to be called at this point, TEMPBUF would be destroyed. T:LROM entries are converted into T:ROMI format 
and added to T:ROMI in the Dynamic Table area. PASSONE is then called to input the ROMs specified in T:ROMI. 



LsgioHFIowofPASSTWO 

PASSTWO branches to process T:ASSIGN iF CCI has just been previously colled by PASSTWO to input :ASSIGN 
commands. Otherwise, it reorganizes the Dynamic Table oreo and moves the resident tables T:SEG, T:DCBV, and 
T:DCB to the end of TrPUBVAL and locates T:VALUE at the end of T:DCB. PASSTWO then allocates port two of the 
Root either at the end of the longest path or where specified on a :ROOT card. 

PASSTWO is now ready to process the segments. It points to the first/next T:SEGentry; reads the segment's T:VALUE 
subtable into T:VALUE; calculates the number of granules required For the segment on the Program File; creates 
T:GRAN at the end of T:VALUE; reads the segment's T:MODIFY and T:MODULE tables at the top of T:VALX; and 
allocates the Work area (which is divided into granule partitions and contains all or port oF the segment's partitioned 
core imoge)at the end of T:GRAN. The Work area extends to the Module Tables Buffer (B:MT), which varies insize, 
and is allocated backwards from the top of T:MODIFY. The Work area is dyrwmic and changes in size either when 
tables in B:MT ore no longer required, or when another set of Module Tables is input. 

PASSTWO is now ready to process the segment's ROMs. It points to the First/next T:MODULE entry; reads in the 
First/next set oF Module Tables into B:MT iF necessory; points to the current module's TrOECL, TrCSECT, T:FWD, 
and T:FWDX table; inputs the ROM; scans the load items; creates the absolute core image in the Work area using 
TiGRAN to locate the granules; and if the WoHc area gets full, outputs the necessary granules to the Pogrom File. 

PASSTWO repeats this cycle until all the modules in the segment hove been input and then writes the granules re- 
maining in core onto the progrom File. It then points to the next T:SEG entry and repeats the outer cycle until all 
the segments in the program have been created. 

IF o Public Library is not being created, PASSTWO builds T:GRAN for port two of the Root, located at the end of 
T:DCB. If there is on :ASSIGN command in B;C, PASSTWO allocotes TrASSN from the end of T:GRAN to the be- 
ginning of T-.VALX and colls CCI to build T:ASSN. After CCI recalls PASSTWO, control is returned to this point. 
PASSTWO allocates the Work area at the end of T:ASSN (which may be of zero length); creates OVLOAD, DCBTAB, 
INTTAB, and the referenced DCBs; reassigns DCBs referenced in T:ASSN; writes port two of the Root on the Program 
File; creates the program header; and writes it on the Program File. If a Public Librory is being created, T:SYMBOL 
and T:VALUE ore output on the Program File. PASSTWO then exits by calling the MAP. 



UgicalFlewofMAP 

MAP moves T-.SEG and T:DCB to the top of the Dynamic Table area, and unless "no MAP" was specified, outputs the 
program header information. 
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MAP points to the first/next T:SEG entry, and unless "no MAP" was specified, outputs the segment's header informa- 
tion. If either the PROGRAM or ALL option was specified, MAP reads the segment's T:MODIFY ond T:MODULE 
tables into core at the end of T:DCB; locates B:MT at the end of T:MODULE; uses T:MODULE to read in the Module 
Tables associated with the segment; maps the segment's control sections (including Library CSECTs if ALL specified); 
and if this is the Root segment, lists T:DCB. 

Regardless of the option specified, AAAP reads the segment's T:SYM30L and T:VALUE subtobles into core at the end 
of T:OCB. If the ALL option was specified, MAP reads T:PUBSYM and T:PUBVAL in as part of the root's external 
table and lists all the symbols in the external table. If the PROGRAM option was specified, MAP lists oil the non- 
library symbols in the external table. If either the SHORT or "no MAP" option was specified, MAP lists only the 
duplicate DEFs, undefined DEFs, unsatisfied REFs, and duplicate REFs. 

This cycle is repeated until all the entries in T:SEG have been mapped. If a disk file used by the Loader overflowed, 
the number of granules used or needed for oil files is listed. Otherwise, this information is output only if either the 
PROGRAM or ALL option was specified. 

MAP terminates the Overlay Loader by either calling the Monitor EXIT function or ABORT function. MAP aborts 
and destroys the Program File if either a disk file overflowed or there were loading errors when a Public Ubrory 
was being created. 

Logical Flow of DIAG 

When the DIAG overlay is called, the environment of the calling program is unchanged. Since the DIAG segment 
overloys the calling segment, all the temporary and permanent storage cells used by the coiling segment are located 
in either the Root or the Dynomic Table area. DIAG is called by the RDIAG subroutine which exists in the Root, 
When RDIAG is called, it saves the 16 registers and then calls in DIAG via the Monitor SEGLOAD function. DIAG 
outputs the specified diagnostic and depending upon the exit code associated with the diagnostic, either aborts, re- 
turns to RDIAG, or colls the Monitor WAIT function. If control is returned from the WAIT function, DIAG returns 
to RDIAG. RDIAG then reloads the calling segment via the Monitor SEGLOAD function, restores the 16 registers, 
and returns to the calling segment at the address following the RDIAG coll. 

Loader-Generated Table Formats 

The Loader creates the program's Program Control Block (PCB), DCB Table (DCBTAB), and Segment Loading 
Table (OVLOAD). 

PCB 

The PCB exists as port of the Root segment and is initialized as shown below by PASSTWO, when the Root segment is 
created. 
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141516 

is the address of the current top of the user's Temp Stack, 
indicates the size, in words, of the user's Temp Stack. 
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OVLOAD is the address of the table used by the SEGLOAO function to read in overlay segments or zero. 

MSLADD is the address of the M;SL DCB used to load overlay segments. 

DCBTAB is the address of a table of names and addresses of all of the user's DCBs. This table has the form 
given below. 

DCBTAB 

DCBTAB is built from T;DCB, and is located in part two of the Root. DCBTAB has the format 



Word 



Entry n , 2 
3 



Total number of entries 


El 


E2 


£3 


E4 


E5 


E6 


E7 


E8 


FWA of DCB's execution location 

1 1 :3i 1 1 



78 



1516 



2324 



31 



vher 



E1-E8 is the EBCDIC name of the DCB (left-justified with trailing blanks). 



( - 



OVLOAD 

The OVLOAD table contains the information necessary for the Afenitor SEGLOAD function to read in overlay seg- 
ments at execution time. One entry is created for each overlay segment. Thus, a program consisting only of a Root 
would not have an OVLOAD Table. 

OVLOAD is located in part two of the Root. The format of an entry is such that it can be used as onFPTby SEGLOAD to 
read in the requested segment. OVLOAD is formatted as described inthe "CP-R Tables Format" chapter. 



Loading Overlay Loader 

Before the Overlay Loader can be loaded, the OLOAD file in the SP area must be previously allocated by RADEDIT. 
It is loaded by the JCP Loader with the I LOAD command. It is critical that the ROMs of the Overlay Loader's seg- 
ments be ordered correctly, so that the segment's idents assigned by the JCP Loader coincide with the idents used 
within the program. The segment idents ore listed below: 



SEG 


IDENT 


ROOT 





CCI 


I 


PASS ONE 


2 


PASSTWO 


3 


MAP 


4 


DIAG 


5 


UB 


6 



The overall flow of the Overlay Looder is illustrated in Figures 56 through 63. 
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LOAOSEG 



Load CC] to proce»y 
the I O LOAD CCi 



Figure 56. Overlay Loader Flow, lOLOAD 




Process control command. 



Figure 57. Overlay Loader Flow, CCI 
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Get first/next entry 
in T:ROMI. 




Input ROM and scon for 
PASSONE type load items. 



Build T:MODULE 
entry for ROM. 



Allocate C SECTS ond 
D SECTS when encountered 



Build Module tables 
a:DECL, T:CSECT, 
T:FWD, and T:FWDX). 



Either link or add DEFs, 
REFs, DSECTS to 
T:PUBSYM, T:DCB or 
T:SYMBOL or T:VALUE 



Add DEF definitions to 
T:VAHJE and T:VALX. 



Move Module Tables to 
B:MT and write on X2 
if the buffer is full. 



Figure 58. Overloy Loader Flow, PASSONE 
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none 
specified 




Figure 58. Overlay Loader Flow, PASSONE (coot.) 
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Pack the 16 Dynamic Tables 
ot »he top of the oreo. 



Build T:LDEF at the end 
of the packed tables. 



Allocate EBCDIC, DEFREF, 
and MODIR files' buffer. 




no 



WRITE 



Write packed 
, tables on X6j 



Read EBCDIC file 
into the buffer . 



Change T:LDEF entries to 
point from TrSYMBOL and 
T:PUBSYM entries to 
EBCDIC entries. 




Built T:LROM to point to 
library ROMs that satisfy 
TrLDEF REFs. 



Read MODIR file 
into the buffer. 



I 



Convert T:LROM entries 
to point from MODIR 
file entries to MODUUE 
file record numbers. 




r^ 



Read pocked 

tables from 

X6. 



Move T.LROM toTEMPBUF 
(inside UB overloy). 



Read DEFREF file 
into buffer. 



I 



I 



Unpack the 16 
Dynamic Tables. 



Allocate T:LROM to begin 
at the end of the buffer. 



Convert T.LROM entries 
to T:ROMI entries and 
odd to TrROMI. 



Use DEFREF entries to 
sotisfy REFs in T:LDEF. 




LOADSEG 

Load PASSONE to 
process T:ROMI. 



Figure 58. Overlay Looder Flow, PASSONE (cont.) 
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Move T:SEG, T:DCBV, 
and T:DCB to the end of 
T:PUBVAL and allocate 
T:VALUE af the end of 
T:DCB. 



I 



Allocote part two 
of the Root. 




Point to first/next 
T:SEG entry. 



Read iegment's T:VALUE 
subtable into T: VALUE- 



Create T:GRAN ot 
the end of TrVALUE . 



Read segment's T:MODIFY 
and T:MODULE at top of 
T:VALX , 



Allocate Work area 
at end of T:GRAN, 



Allocate B:MT at 
top of T:MODIFY, 



Reod in the segment's 
ROMs and associated 
Module Tables. 



Scon PASSTWO t/pe load 
items and create absolute 
core image. 




Write segment's core 
image on Program File. 



Figure 59. Overlay Loader Flow, PASSTWO 
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AllocoteWork 
area at the end 
of T-.ASSN. 



Create T:GRAN at 
end of T:DCB for 
part 2 of the Roof ond 
al locate T:ASSN at 
end of T:GRAN. 




Create part 2 of the 
Root and reassign 
DCBs referenced in 
T:ASSN. 



Write part 2 of 
the Root on 
Program File. 



Create program 
header and write 
it on Program File. 



Write T:SYMBOL 
and T:VALUE on 
load module file. 




Figure 59. Overlay Loader Flow, PASSTWO (cont.) 
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List program, Root, 
and segment header 
information. 




List DCDs, program 
CSECTS, ond 
program DEFs. 




List library CSECTS, 
library DEFs, and 
Public Library DEFs. 



List unsatisfied REFs, 
duplicate DEFs, 
duplicate REFs, ond 
undefined DEFs. 




List information 
about RAD file 
usage. 




RABORT 

Destroy Program Filey 

and take Monitor/ 

ABORT exit. 



Figure 60. Overlay Loader Flow, MAP 
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Save the 16 
register in the 
Temp Stock. 




Figure 61, Overlay Loader Flow, RDIAG 




SEGLOAD 

yLoad ca 11 ing over- 
lay segment 



Restore the 16 
registers. 




Figure 62. Overlay Looder Flow, RDIAGX 
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( DIAG j 

Crecte text and 
output diagnostic 
on LO ond OC. 




yNah for operotoiy 
response. 




C response 



Figure 63. Overlay Loader FIokv, DIAG 



192 



11. RADEDTT 



The RADEDIT processor provides a convenienf megns fbrthecreationand maintenance of filesinthe various permanent 
disk areas defined by SYSGEN. In particular, it provides job stream and terminal access to the system coils that 
create and delete files in these areas, to functions that reclaim space lost to deleted files, and to a means of initial- 
izing an area to its unused space. 

It also provides utility functions that produce listings of active files, enter data into a file, and save areas on mag- 
netic tape . 

RADEDIT executes as a normal program in the backgrour>d job stream. Whencalled from TEL, using the name MUST, 
it executes as a foreground secondary task. 



Fanctioml Flow 

Upon being loaded, RADEDIT performs one-time initialization to acquire memory for use as buffers and work space. 
This was created during OLOAD as a defined segment 20,000 words long. How much space is actually acquired, in 
pages, is determined by 

N = max-path-bgn 

where 

path is the number of pages in the longest segment path of RADEDIT. 

bgn is the page address of the start of RADEDIT. 

max is the page address of the end of the range permitted to an SMM program (considered as a good estimate 
at how big a variable-sized program should try to be). 

The last value is taken from K:FSMM if RADEDIT is executing in foregrour)d (under TJE), or from K:BCKEND if it is 
in background. 



The layout of RADEDIT in memory is then: 

SEG. ROOT SEG. 1000 



SEG. 999 



ROOT 

PART 

1 



RADEDIT 

ROOT 

(RROOT) 






COMMON 

CODE 

(RSI 000) 



I 



OVERLAY 
AREA 




BUFFERS and 
WORK AREA 




6000 



600E 



t 
8000 



t 
8800 



t 
10000 



t 

15000 



After the one-time initialization is completed, the nonnal command processing loop is entered. The functional flow 
of this loop is shown in Figure 64. 



Ptrminrat Disk Area MaintenMice 

RADEDIT creates and maintains files and file directories on any of the areas defined in the Master Dictiorrary except 
the BT, XA, or CK areas. (See Chapter 8 for a description of the Master Dictionary.) It uses the system service calls 
ALLOT, DELETE and TRUNCATE to perform these functions. 
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I ; 




CP-R 

Read IRADEDIT control 

command. Load and 

transfer control to 

RADEDIT. 



Do one-t!fne initilization: 
Get memory for buffers. If 
called from TJE, assign 
inout DCB to SI opiabel. 



Initialize DCBs and the 
Scan Routine parameters. 



Read next command 
from C device. 




no 



Load appropriate segment 
if rK>t already in core and 
branch tc routine. 




Return to Monitor. 



TO THE PROCESSORS FOR THE VARIOUS COMAAANDS 




Figure 64. RADEDIT Functional Flow 
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Utity 

In order to simplify processing and rec^ce dependencies on s/stem table foimats, a set of utility subroutines have 
been implemented. These routines ore called whenever any of the information they process is required. In the 
description of the individual commands that follow in the next section, some of these routines are explicitly men- 
tioned as being called. However, almost every command processer will coil one or more whether mentioned or not. 



UNPKMASD This routine gets information on the area whose index is in the cell AREA. If the orea is allocated, 

the F:BI DCB is assigned to the area and a GETASN CAL is issued to get such information as device address, begin 
of area, end of area, and write protection code. All infomiation is stored in the MASDxxxx table in'the context 
se^nent. AREA <jEf specifies any public area; this is accepted by setting the area mme to blanks and bypassing 
the GETASN CAL. A valid area is indicated by returning to the link address +1, unallocated areas cause a return 
to the link address. 



CAN This routine processes a list of area names (as for example in a :AAAP command) and marks those given in 

the AREASWS byte table. Each area requested explicitly is marked with an X'FF'; areas requested by the 'ALL' op- 
tion are marked with X'J0^' . The 'ALL' option may or may not include the BT, CK, IS and OS areas depending upon 
the setting of the switch passed to GAN in the link register + 1 (RLNK "i- 1). If no errors ore detected, the return 
is to the link address + 1 . If any errors, invalid area names, or no area iKmes given, are found, the return is to 
the link address and the address of on error message is in R15 Oink register + 1) . 



SCAN This is a general routine used to scon all rximes, numbers, etc. It is identical to the SCAN routines in 

theCP-R KEYSCN module. 



GETIOID The general routine to scan an input identifier, which may be any of a file, device, or opiabel . The 

routine determines which is given, and builds a table in the form required by the ASSIGN CAL, supplying any de- 
faults requested or implied. It also generates the appropriate P-bits for ORing into the P-bit word of on ASSIGN 
CAL. 



GETFID, GETDEV, GETOPLB, GETANY These routines ore used to coll GETIOID to get a file identifier, de- 

vice name, opIabel name, or any of these three, respectively. 



6ETFSTSD This routine reads the first directory sector (sector fS) of the area assigned to the F:BI DCB into BUFFI 

and does some preliminary detemiination of the stotus of the area. Return condition codes indicate: 

CC = fi Directory continued (1st word < fS) 

CC = 4 Directory empty (1st word = jCO 

CC = 8 Directory's last sector (1st word >/!() 



GETNXTSD This routine reads the next sector of the directory whose current sector is in BUFFI by accessing the 

directory link address. It reads both old style (pre-DJ^B^P-R) as well as new style (D/ZjEf and on) directories based 
on the setting of the MASDFRMT cell. (See GETISFIL below.) 
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GETAX This rout! n« converts a symbolic area iMme into an area index. The input name is left justified in R8; 

the area index is returned in AREA and R1 . An undefined area name results in an error being indicated by returning 
to the link address. A valid area returns the link address + 1 . An area name of zeros or blanks is treated as the 
specification of any public area and is indicated by on index of - 1 . 

GETISFIL tmi GETNXFIL These routines are used whenever an area's directory is to be searched or processed 

one file at a time in their order in the directory. GHISFIL is called initially. It calls GETFSTSD to read directory 
sector zero and test for o cleared area. It then tests the header field to detemiine if it has an old (pre-D^^2^P-R) 
or a new (D/Z^and on) style directory and sets MASDFRMT to 1 or ^accordingly. 

The address of the first or next directory entry (in the BUFFI buffer) is returned on each call in R5. GETNXTSD 
is called to read the next directory sector as needed. The routines return relative to the link address according to 
what is found 

LINK + 0: Error in directory 

LINK + 1: Directory empty (GETISFIL), no more entries (GETNXFIL) 

LINK + 2: Next entry address in R5 

UNPKDiRE This routine will unpack a directory entry into the DIRExxxx table in the context segment. It will 

process old and new style formats according to the setting of MASDFRMT. It supplies blank account rximes for 
entries which do not have them. For old style entries it also supplies zero for extent information and the length of 
the entry. The address of the entry to process is in R5. 

This routine and PACKDIRE are the only two routines in RADEDIT that know, or should know, the actual format of 
a directory entry . 

PACKDIRE This routine will form a new style directory entry from the information in the DIRExxxx toble and 

store it in memory starting at the oddress in R6. The name that is stored in the entry is a function of the cell 
DIRESTAT, as follows. 

DIRESTAT = ^ deleted file ==$> name of all reros 

DIRESTAT = 1 => bad sector entry ==5> name of all F's 

DIRESTAT = 2 ^ good file ==> name in DIRENAME 



Cwrtril CmmmMs 

The creation and maintenance of files in the disk areas is done through the :ALLOT, :DELETE, iTRUNCATE and 
zSQUEEZE commands. All but :SQUEEZE use the monitor service call to do their function. 

:ALLOT The utility subroutine GETFID is used to get the file rwme, and area and account name if given. The 

other parometers are scanned and validated, and stored in the DIRExxxx table entries. RF is only allowed if the FP 
area is specified. Specifying a library file in the SP or FP areas forces organization, and RSIZE (if MODULE), to 
the needed values. See ALLOT under LIBRARY FILE MAINTENANCE. 

An ALLOT FPT is then constructed based on the parameters present in the command and the monitor^servic;^ called 
to actually perform the allocation. 

See also the description of the ALLOT service in Chopter 3. 

:DELETE The file name and area and/or account name is scanned using the GETFID utility routine. A DELETE 
FPT is constructed specifying the appropriate area and account if present, and the monitor service called to delete 
the file. Multiple files can be deleted with one :DB.ETE command by repeating the FLE, fid parameters. 
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:TRUNCATE Thi* command can truncate either a ipecfftc file or all files in an area. If the Iceywotd "FILE" is 

scanned, an individual file is assumed, and the utility routine GETFID is called to get its name , orea , and account. 
A TRUNCATE FPT is formed from the porometeis obtained by GETFID and the monitor service TRUNCATE called. 

If the keyword "FILE" is not scanned first, it is ossumed what was scanned was an area rKime. The utility routine 
GETAX is called to validate it as an oreo name, and then UNPKMASD to get its Master Dictionary information. 
The routines GETISFIL and GETNXFIL are used to get each entry in the directory, UNPKDIRE is used to detennine 
if it is on active file entry and get its name if so. A TRUNCATE FPT is built and the monitor service called for each 
active file that has a file size greater than zero. After each file or area, :TRUNCATE loops bock to accept another 
file or area. 



:SQUEEZE The -.SQUEEZE command list the areas to be processed. The list is scanned using the GAN routine to 

set flags in the AREASWS table for each area specified . SQUEEZE serves two purposes: 1) it ollows the reclaiming 
of space that has been lost due to truncations and reallocation of deleted files or that is allocoted to deleted files; 
and 2) It provides a means of collecting the extents of extensible files together into contiguous space on the disk, 
and, if not inhibited by a FIX when allotted, merging the extents into a single entry in the directory^ Figure 65 
illustrates the disk areas before and after sc^ueezing to reclaim space. 

The :SQUEEZE processor uses UNPKMASD to get the area's BOA and EGA sector addresses artd the sector size, and 
GETISFII/GETNXFIL to get each active or Bod Sector entry in the directory. It uses UNPKDIRE/PACKDIRE to get 
all information from ofiles entry ond to move an entry to and from the directory sectors. 

To process each area, the directory is read and each active entry is copied to a linked list in the background buffer. 
This list is linked, both forward and backwards in the order in which it appeared in the directory. This is also the 
order in which they are allocated space in the area . Also, extended files are linked by extents in ascending order. 
Thereafter, the directory on disk is no longer used. 

The algorithm used to relocate files and extents in order combine extents of normal extended files and juxtapose 
extents if files marked by "FIX" is described in greater detail in Figure 69. Basically, however, eoch file is pro- 
cessed as it occurs in the directory. If it is not on extended file it is moved down to the next sector to be allocated 
in the squeezed area. When the first occurrence of a file is extent 0, it is processed initially as a normal file. When 
the first occurrence of a file is not extent 0, the lowest numbered extent that has not been squeezed is found and 
it is moved to the next sector to be allocated in the squeezed area. 

After an extent of on extended file has been squeezed, non-FIXed extents ore combined with the previous extent, 
if any, ofkI the next extent chosen as the file entry to be squeezed next. 

Whenever there is insufficient space between the lost squeezed file (extent) and the next rtonsqueezed entry to 
insert the next extent; space is mode by trying, in order 1) move the next entry and its file to free space at the end 
of the area; 2) move the file to the best fit space not used (either a deleted file or truncated space); or 3) rotate 
the next extent and all intervening entries up on the disk: the entry immediately before the next extent will be 
moved up over where the next extent was, the entry before it will be tnoved over it, etc., and the next extent will 
then follow the previous. 

These attempts to create enough space for the next extent will fail if the next entry is a BADSECTORs entry, or if 
there is such an entry in the range of files to be rotated . In these cases, the extent chain is broken and the two 
pieces are processed as two separate files. '^ 

Space before BADSECTOR entries are filled with 1) the largest nonextended file that will fit; then 2) the smallest 
extent fS of an extended file - this will be followed by as many of its extensions as will fit; and finally 3) a deleted 
file entry that exactly fills the space. 

Note that for areas containing BADSECTOR entries, it is possible for the SQUEEZED area to require more space 
than before. This is a function of where the BADSECTOR entry is in the area and whether a large deleted file entry 
has to be formed. 
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Disk Area After SQUEEZE 




1 

2 

3 

4 

15 
26 
37 
48 
59 

70 

n 
word 






70 





Directory 


48 




1 


file 1 


X'AAAAAAAA' 




10 


X '55555555' 




11 


file 2 


file 1 

BOT = 1 EOT = 10 




15 








16 


file 3 


file 2 

BOT = n EOT = 15 






21 








22 


file 4 


file 3 

BOT = 16 EOT = 21 






24 








25 


deleted file 


file 4 

BOT = 22 EOT = 24 






31 








32 


bod sector space 


deleted file 

BOT = 25 EOT = 31 






47 
48 






free space 


bad sectors 

BOT = 32 EOT = 47 






-1 


* 

1 


m 



sector 



198 



Library Filf Maintsnance 

Both the System Library files residing in the SP area and the User library files residing in the FP oreo hove the same 
file structure. Each library consists of one blocked Module File (MODULE) and three unblocked files: the Module 
Directory File (MODIR), EBCDIC File (EBCDIC), and DEFREF File (DEFREF). 



The MODIR File contains general information obout eoch library module, including its name, where in the MODULE 
File it is located, and its size. The MODULE File contains the object modules. The EBCDIC File contains only the 
DEFs and REFs of the library modules. The DEFREF File contains indices to the DEFs and REFs in the EBCDIC Filefor 
eoch module. These files must be defined via the :ALLOT command before attempting to generate them via the 
rCOPY command. 



Algorithms for Computing Library File Lengths 

The following algorithms may. be used to determine the approximate lengths of the four files in a library. It 
is not crucial that the Tile lengths be exact, since any unused space con be recovered via the :TRUNCATE 
command. The approximate number of sectors ('^luip.ntn) required in tfte MODIR File is 

^3(i) 

"modir s 

where 

i is the number of modules to be ploced in the library. 

s is the disk sector size in words. 

3 words is the length of a MODIR File entry. 

2(d) 
The approximate number of sectors (n-^--,-) = 

where 

d is the unique number of DEFs in the library. 

s is the disk sector size in words. 

2 words is the average length of an EBCDIC RIe entry. 



The approximate number of records (niiz-jrvm p) required in the MODULE RIe is 



n 



-z. ^■. 



"module . — , 

1=1 

where 

n is the total number of modules in the library. 

C. is the number of cord images in the ith library routine. 
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The opproximote number of lecton ("nccpcc) •*<iuired in the DEFREF File is 

• + I 



n 



DEFREF 



w 



here 



is the total number of routines in the library, 
is the number of DBFs in the ith library routine, 
is the number of REFs in the ith library routine. 
is the disic sector size in words. 



Ubrary File Foraiats 

The library file formats are described beloMr. These files are generated from object modules read in via the 
:COPY command. 

MODIR File 

The MODIR File is an unblocked, sequential access file and acts as a directory to the MODULE File. The file al- 
ways consists of one variable length record that increases in size as object modules ore odded to the library. There 
is one entry in the MODIR File for each object module, with each entry consisting of three words. 



Words 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



MODULE File record no. 


Records per module 


Module name (first DEF) 


Module name 


MODULE File record no. 


Records per module 


Module name 


Module none 


• 
• 


• 
• 
• 



1516 



31 



where 



MODULE File record no. is the relative record within the MODULE File where the object module (corres- 

ponding to this entry) begins. 
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records per module it the number of records in the obiect module . 

module rrame is the name of the object module that is the first DEF in an object module. 
A deleted entry contains zeros in all three words. 

MODULE File 

The MODULE File is a blocked, sequential access file and contains the object modules. The iocotion of the object 
module within the file and the size is indicated by the MODIR File entry. 

EBCDIC File 

The EBCDIC File is on unblocked, sequential access file. The file always consists of one variable length record 
that increases in size as object modules are added to the library. The EBCDIC File contains all the unique DEFs 
and REFs in the library object modules. y 



n e e e 

en e e 

e e e e 

e e 



1 
2 
3 

where 

n is the number of bytes in entry (including itself), 
e is an external definition or reference in EBCDIC. 

DEFREF File 

The DEFREF File is on unblocked, sequential access file- The file olways consists of one variable length record that 
Increases in size as object modules ore added to the library. For each module there is one entry that varies in size 
according to the number of DEFs, DSECTs, and REFs. DEFs and DSECTs al«rays precede the REFs in the entry. 



where 

entry size 



Entry size (no. 1) 


MODIR Fi le index 




d 


DEF 1 




d 


DEF 2 


r 


d 


DSECT I 


r 




REF 1 


r 




REF2 


Entry size (no. 2) 


MODIR File index 




d 


DEF1 


r 




REF 1 


r 




REF 2 



01 



I51617I8 



31 



is the number of holfword entries (including itself) for the object module. 3 sentry size<32,767. 



MODIR File index is the relative holhArord in the MODIR File that identifies the object module. 0£ MODIR 
File index £32,767. -I means a deleted entry. 
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if d and r both = 1, the entry U a DSECT. 



d If d = 1, the entry it a DEF 
r if r = 1, the entry is a REF 
DEF n is the byte index of an exterrwl definition in the EBCDIC File. 
REF n is the byte index of an external reference in the EBCDIC File. 
DSECT n is the byte index of a DSECT in the EBCDIC file. 
A deleted DEFREF entry contains a MODIR File index of -1, with the rest of the entry remaining the some. 



Cwnmand Exccntioii 

The library files are maintained through the execution of : ALLOT, :COPY, :DELETE, end :SQUEEZE commands- The 
entries in the MODIR File, MODULE File, and DEFREF File are tn the same sequential order. The ith entry in the 
MODIR File identifies the ith object module in the MODULE File, and corresponds to the ith entry' in the DEFREF 
File. The ordering of these files is always preserved. 

UlLLOT Library files ore allocated in the same general manner as other files described previously, but with 

certain specific differences. When area SP or FP is specified, a check is made to determine if the file name is 
MODIR, MODULE, DEFREF, or EBCDIC. If MODULE is specified, RSIZE is set to be 30 words and FORMAT set to 
be blocked. If MODIR, DEFREF or EBCDIC is specified, FORMAT is set to unblocked . RSIZE can be any value 
for the unblocked files and is used solely for calculating the amount of space to allocate for the file. The record 
size for these three files is set to when allocated. GSIZE on all library files is ignored, and is always set equal 
to disk sector size by RADEDIT. 

JCOPY The permanent disk area specified on the :COPY command determines which library a module(s) is to be 

added to. For each object module added, the followirtg procedure is followed: 

1 . An object module is read from the input device specified on the commarkl. The module is added to the end 
of the MODULE File as it is being scanned For external definitiom and references. The MODULE File 
record number for the MODIR File is obtained from RFT12 (current record no. of file). The MODIR File 
irKlex is obtained from RFT5 (record length). 

2. As DEFs and REFs are encountered, they ore added as entries to the end of the EBCDIC File. The first DEF 
encountered is used as the MODULE File r>ame. However, REFs are added to the EBCDIC File if they are 
not in duplicate. 

3. The indices to the EBCDIC File entries are saved to create the DEF n and REF n words of the entry to the 
DEFREF File. 

4. The addition of the object module to the library is completed by updating the "records per module" in the 
MODIR File entry; "entry size" in the DEFREF File entry; and writing the MODULE, DEFREF, and EBCDIC 
Files to the di^. 

:DELETE The permanent disk area on the :DELETE command is used to determine which areo contains the library 
object module to be deleted. The MODIR File entry containing the sone module name as that appearing on the com- 
mand is zeroed out. The corresponding DEFREF File entry is located and the holfword contoinir^g the MODIR File 
index is set to -I. No other changes are mode to the EBCDIC and MODULE Files as a result of the :DELETE 
commond. .« -* 

All unused space resulting from a module deletion is recovered when a iSQUEEZE command is executed. 

SQUEEZE The area containing the library is determined from the subparameter to "LIB" from the SQUEEZE 

command. Only the library will be squeezed by this form of the command. A search is made of MODIR for any 
deleted entries. If none are found, there is no space to be reclaimed and squeeze terminates. If there are deleted 
entries, all remaining modules ore copied from the MODULE file to the Temporary File Xl .BT. Then, using XI. BT 
OS the source input, the library files are recreated by a noimal library build. 



202 



Bad sectors within pennanent file areas on a disk are removed from use by making special entries to the appropriate 
file directory. All bad sectors con be handled in this martner except these that contain a sector of the file 
directory. These cannot be removed from use as it would make accessing of certain files impossible. 



Cannand ExMvtioii 

Bad sectors are handled through execution of :BDSECTOR and :GDSECTOR commands. The rBDSECTOR command 
removes the sectors from use by allocating a BADSECTOR entry equal to the limits of the bad sectors. The 
:GDSECTOR command returns the sectors for use by deleting the entry made by :BDSECTOR. 



:BDSECTOR The permanent disk area containing the bad sectors is determined from the disk address and sector 

limit on the command and the BOA and EOA limits of the areas in the AAaster Dictionary. Specifying sector zero 
of the area is not allowed, and doing so will cause the command to obort. If any other directory sector is specified, 
on attempt will be made to move its doto to onother sector. The directory is searched for all files that fall within 
the bod sector limits. Files that begin within the limits are deleted and messages ore produced to indicate which 
files they were. Files that terminate in, or completely contain, the bad sectors are truncated at the lost good sec- 
tor, and message(s) produced to worn of this condition . For extended files, all extents beyond the truncated or de- 
leted extent are also deleted. 

A BADSECTOR entry is created, either from one of the deleted files or an entirely new entry, whose name is set 
to -1 (X'FFFFFFFF', X'FFFFFFFF') and BOT and EOT to the bod sector limits. 



:GDSECTOR The area to process is detemr)ined in the same way as for :BDSECTOR. The appropriate area's 

directory is searched for all BADSECTOR entries included within the sector limits. Entries completely within the 
limits ore converted to deleted file entries; others ore adjusted to reflect their new BOT's ond EOT's. 



Utility Functions 

The following utility functions are performed by RADEDIT. 
Maps permanent disk areas. 
Maps libraries. 
Clears permanent disk areas. 
Enters data onto permanent disk files. 

Appends records to the end of an existing permanent disk file. 
Copies permanent disk files. 
Copies library object modules. 

Copies the contents of a disk pack to another disk pack. 
Dumps the contents of disk files or entire disk oreas. 
Saves the contents of disk areas in self-reloadable form. 
Restores disk areas previously saved. 
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BEGIN 


END 


WRITE 


SECTOR 


SECTOR 


PROTECT 


bbbbb 


eeeee 


w 



MAP The permanent disk area(s} to be mapped is Indicated on the lAAAP Command, with the map infomwtion 

being output to the device ostigned to the M:LO DCS. 

I 

Each map consists of up to three sections: one section when disk areas CK, XA, or BT are mapped; three sections 
if any other areas are mapped . The three sections of the mop ore as follows: 

1. Information from the Master Directory identifying the permanent disk area, starting and ending disk ad- 
dresses, write protection, and device number of the disk from the Device Control Tables. 

2. Information obtained from the permanent file directories concerning each file in the area; its name, forrtwt, 
granule size, record size, file size, beginning of file, and ending of file. 

3. Information about the space remaining in the area. 

Section 1 of the map has the format 

AREA DEVICE- WORDS/ SECTORS/ 

ADDRESS SECTOR TRACK 
zz yyndd sssss ttttt 

where 

zz identifies the permanent disk area. 

yyndd is the disk that contoins the permanent disk area. 

ssssi is the words per sector in decimal . 

ttttt is the sectors per track in decimal. 

bbbbb is the absolute disk address of the first sector of the area in decimal. 

eeeee is the absolute disk address of the kist sector of the area in decimal . 

w is the write protection for the file. 

P is no write protection . 

F is write-permitted by foreground only unless SY key-in. 

6 is write-permitted by background only unless SY key-in. 

S is write-permitted only if SY key-in. 

X is write-permitted by lOEX only. 



Section 2 of the map has the format 

FLGi; AREA RELATIVf GFAM'Lfc FiE.CCKD ULt APPF.OX LXThM 

tlLLf-AKE.ACCGLM XTi^iT BEGII. END SIZE SIZE SIZE riECORLS SIZE 

Or.L SECTCii SfcCTUh (triTtS) (PYXES) (f-LCS) F.EKAI), (SLC'IA) 

nnnnrnnn.aaaasaaa xxx o fff cssss ttttt p-pffp rrrrr 11111 uuuuu vvvvv 



where 

nnnnnnnn is the name of a file in the permanent disk area. 

oaoaoaoa is the account number under which the file was allotted. It Is not printed if It is all zeros 
or blanks. 
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XXX tt the nundberof thfs extent if the ftlel(*)ctemlble. 
o is the file organization. 

U specifies unblocked. 

B ^Mcifies blocked. 

C specifies compressed. 

f are the flags. 

F for FIX specified, 

R if Resident Foreground. 

S if written Sequentially. 

D if written Directly. -^ 

99999 '** the granule size in bytes in decimal. 

rrrrr is the record size in bytes in decimal. 

Illll is the number of records in file in decimal. 

tats is the relative disk address of the first sector defined for the file in decimal . 

ttttt is the relative disk address of the last sector defined for the file in decimal . 

uuuuu is the approximate number of additional records the file can contain. 

vwvv is the number of secton to be allotted to ony extension to this file. 

Section 3 of the mop gives statistics on the use of the area and has the format 

NUMBER OF FILES: nnnnn J 

REMAINING SECTORS: xxxxx 

SECTORS RECOVERABLE: yyyyy 

where 

nnnnn is the number of directory entries listed. | 

xxxxx is the number of urxjsed sectors in the area; those between the end of the lost allocated file and the 
end of the area . 

yyyyy '^ the number of additional sectors that will become available if a SQUEEZE is performed. 

The mapping of an area is performed as follows: 

1 . Information is obtained from the Master Directory for Section 1 of the mop and output to the LO device. 
If an area is not allocated, the mapping of that area is ignored. 

2. Information is then obtained from the pemionent file directory for Section 2 and output to the LO device. 

If an area other than CK, XA, or BT does not contain files, o message will be output to that effect. When • 

a bod sectors entry is encountered, " BADSECS" is printed as the name of the file. I 

3. As the information for each file is printed, sectors contained in deleted files or between the end of one 
file and the beginning of the next (truncated areas) are counted for reporting in Section 3. 
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The informaHon on the Master Dictionary it unpacked by the wbiouHne UNPKMASD into a table. All lubtequent 
references to MASTD infomiation during a MAP operation then use this table. UNPKMASD also compuhss the num-* 
ber of sectors in the area and initializes values used in occounting for free space, used ipoee, and lost space for 
Section 3 output. 

Each file's entry in the directory is unpacked into a table as it is scanrwd. This table, rather than the actual entry 
in the directory, is used to print the information for Section 2. 

As each area's map is produced, checks are made for a valid directory. Conditions tested ore 

1. The "Address" portion of the last directory sector is larger than a sector. 

2. 1he "Next Available Sector" portion of a directory sector points out of the area. 

3. The End sector of a file entry is beyond the end of the area. 

4. The size of a file (EOF - BOF) < fl. ■' 
Whenever any of these conditions are found, the processing of the area is terminated by the message 



AREA HAS AN INVALID DIRECTORY 



:LMAP This command functions only on libraries in the SP and FP areas. 

The output mop has the format 

MAP OF LIBRARY IN AREA oa 

MODULE NAME LOCATION DEFS REFS 

mmmmmmmm I II I dddddddd dddddddd iriiriii riririii 



where 

aa is the permanent disk area that contains the library. 

mmmmmmmm is the object module name. 

nil is the relative sector address of the first sector of the object module. 

dddddddd is the name of on exterrral definition (up to three per line). 

rrr r rr r i Is the rwme of an external reference (up to three per line). 
If the area contains no library, the message 



AREA CONTAINS NO LIBRARY 
is output. 
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:SMAP This command functions similarly to the :MAP function except that the output is greotly abbreviated for 

output to a temiino! . 

Section 1 of the map has the format 

AREA; zz 

Section 2 of the map has the format 

'RECS FILENAME. ACCOUNT 
Hill nnnnnnnn.aaoaaoaa 

The mapping of the area is perfomied in the same steps described under :MAP. 



rCATALOG The :CATALOG command uses the utility routine GETFID to get its input parameter and decide 

what type of -.CATALOG command is given. If a file name is given, it is assumed to be the first of a list 
of individual files, specifically named, that are to be processed. This is Format "A" catalog. If no file rKime is 
given, it is Format "B" wherein files to be processed are selected based on area and/or account. 

Format "A" processing. 

Immediately on determining that it is a Format "A" command, the header 

ORG *RECS NAME 

is output. 

For each file listed, the total number of records in the file and ail ih extents is determined and the files organiza- 
tion, number of records and FILENAME.AREA .ACCOUNT output. 

Fomiat "B" processing. 

This format may select oil accounts in a particular area, (TYPE 2) a particular account in all areas, (TYPE 1), or a 
particular account in a particular area (TYPE 0). Based upon which is requested, a list of all areas to be scanned 
is built in the AREASWS table. 

Ail areas specified are scanned in order of ascending area index. Area information is gathered by UNPKMASD, 
each file entry in the directory by GETlSFIL/GETNXFIL, and the status and information in an entry by UNPKDIRE. 
As each new file name in the proper area, account and file name limits is found, it is added to a linked bit of files 
created in the background buffer space. This list is created and kept in order alphabetized by file name by occount 
and then by area index. As each extent of an extended file is found, its file size is added to the accumulated total 
in the list. 



A list entry has the format 
Word 
1 

2 
3 
4 
5 
6 
7 
8 



File Name 



Account Name 



Area Index 



ORG 



FSIZE 



Bock Link 



Forward Link 



Index 


1 
2 

3 
4 
5 
6 

7 
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The oufput produced varies according to the type of :CATALOG requested, the type is maintained in the ceil - 
MAPSW. It is used to branch to the proper code to produce the required header, and again to decide whether the 
area and/or account is to be displayed. 

:CLEAR The psrmanent disk area on the :CLEAR command is used fo detennine the area to be cleared (set to 

zero). The area is cleared using the direct access method. The granule size is set equal to the amount of unused 
background space available, which is zeroed out and written to the disk. 

:COPY The parameters on the :COPY command are used to set up the F:SI and F:SO DCBs. Files are copied 

sequentially. When an lEOD, :EOD, or EOT is encountered, the number of files to copy is decremented. If there 
are no more files to copy, the request is terminated; otherwise, the next file-copy is started. When an object 
module is copied to an output device, the COPY is terminated when the module end load item is encountered. 

'.OPCOPY The parameters in the :DPCOPY command ore used to set up input and output DCBs which ore assigned 

directly to the specified disk packs. The copy is double buffered on input and output using buffers that ore as large 
as the background work space will allow. The copy continues until the specified number of sectors have been 
copied. 

'.DUMP The permanent disk area or file to be dumped is indicated on the :DUMP command. The information is 

dumped to the device assigned to the M:LO DCB. The file dump has the format 

DUMP OF FILE nnnnnnnn IN AREA AA 

RECORD n-rr 

WD 0000 dddddddd dddddddd . . .dddddddd 

WD 0008 

WD 0016 

where 

nnnnnnnn is the rrame of the file. 

AA identifies the permanent disk area (area BT inclusive). 

rrrr is the relative record number and begins with 1 . 

dddddddd is a data word in hexadecimal. 

The area dump has the format 

DUMP OF AREA ZZ 

SECTOR ssss 

WDOOOO dddddddd dddddddd ...dddddddd 

WD0008 

WD0016 ... ^ 

where 

ZZ identifies the disk area. 

ssss is the relative sector number, and begiru with 0. 

dddddddd is o data word in hexadecimal. 
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Acctss Ctiitrai iM|B (ACI) 



( - 



Purpose 

The ACI contains an image of the access protection codes for a given secondary task. 



Type 

Serial consecutive entries in TSPACE. 



Logical Access 

The ACI is pointed to from the STCB. Entries ore accessed by index displacement with entry representing virtual 
page 0. 

Overview of Usage 

The ACI is created by task initiation and is filled in by the Task Dispatcher before each dispatch operation from 
information in the tasks segment descriptors. The ACI is also manipulated by Memory Management routines. 



Access Control Image (ACI) Formot 
word 


1 
2 



15 



where 



01 2 3 


456 


26 27 28 29 30 31 


\ ^ 


^ 


... A,3 A,4 A,^ 


^6 




^1 


^32 


• • 


Nz 


1 . i 

r • 1 


^240 


. . . 


^255 



A. is the 2-bit occess protection code for virtual page i. 
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The dumping of an area or file is performed OS follows; 

1. The directive is scanned to determine whether on area or file is to be dumped. If a value for SREC is not speci- 
fied, is assumed. If o value for EREC is not specified, the last record of the file or area is assumed. 

2. The record^) to be dumped is accessed sequential!/. Within a record, if a word is duplicated more than sixteen 
times in order, it is output only once in the message 



'WDxxx THRU XXX CONTAIN xxxxxxxx' 



If records are duplicated, the message 



■RECORDxxx THRU xxx CONTAIN xxxxxxxx" 



is output. 



If sectors are duplicated, the message 



'SECTOR xxx THRU xxx CONTAIN xxxxxxxx' 



is output. 

3. The dump is terminoted when the specified number of records have been dumped or when a complete file or area 
has been dumped. 



:XDMP The specified input is displayed on the device assigned to the M:LO DCB. The input may be a file, a 

disk, tape, a card reader, or any other valid input device. Files and disks are read in a sector by sector mode; 
tapes by physical blocks; and other devices by records. For input coming from a disk, the read is limited to sector 
size. For all other input, the read is for 65536 bytes (the maximum possible in READ CAL) or the size of the back- 
ground buffer space, which ever is smaller. 

Each XDMP output starts on a new page. Bach page of output is headed by a title line that gives the frame of the 
device, file or area being processed, ond the opiabel if accessed through one. Ecach sector or record is processed 
individually. A sample of the output is given below. The two addresses on the left are the byte (and word) dis- 
placement from the beginning of the block to the first byte (word) on that line. 



Example: XDMP output 



r« luy 1 1 



LlHtttH 



ia2< I «H)I XIItK 



BTTL 

oouco 

0(1020 

ono%o 
tteuto 

ssico 



iHSKD) o lu/m > ii/vi « iZ/J>i t (J/«i to i«/C) i< is/oi la i«/ii ic ir/ri •!> » « c lo i* in ic 

oonuu ^^^^^^r^ ^F^^^^^^ unufcOOOo Uiiooostii 00000*00 0*000000 o;Donftoo 0*0*0*00 y * 

uooui uvoonsdn ooooo*!* o*uuvooc wiooooo o*iEo*oo oooounii aoaoo«;B 0*000000 • 

oooto trroiiono u*320*uo uuououov uvoooooo ooooonoo ooooouou uui'uoooo oooonono • .* 

OOOlB OUWUOtlOU OOOUUUUO UOUUOUOO UUOUOOOU 00000000 OOOOOUUU UUUOOOOO 00000000 •.. • 

•Vict cuoso IB oojor iDkNiic*L le *ann itwcj oaii4« ioo3*oi tnts. oupjt louoom uonot. 

OOO^t VVUOOUOO ttOOVOUUO UaUUOUOU WUOOUOOU 00000000 OOOOOUOO UOUOOOOO 00000000 ••... 



INO BT IVXP 



When there are three or more lines of output having the same contents, only the first line is displayed. The other 
lines are replaced by the "identical to above line" message seen in the sample output. The first two numbers are 
byte displacements of the first and last bytes of the duplicate line. The length of the ckjplicate information is given 
in decimal and hexadecimal bytes, then in decimal and hexadecimal words. 
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:SAVE . The area(s) to be saved Fs specified on the :SAVE command. The data is dumped to the device assigned to 
the M:BO DCB, and consists of the following: 

1 . A small 88-byte bootstrap that loads the large bootstrap when booted from the console, 

2. A large bootstrap that restores the disk from magnetic tope. 

3. An 88-byte RBM bootstrap used for booting the disk. 

4. Records containing data to be saved . 

Each record to be restored is preceded by a six-word header with the format: 

f18 15 16 17 18 19 20 23 24 31 



WPS 


L 
R 
A 


L 
R 
T 


M 
R 

T 


D 
P 
A 


SEQ 


Area index 


SPR 


Device address 


IPC 


FWA 


SPT 


Area none 


NSZ 


CKSM 



where 
WPS 
LRA 
LRT 
MRT 



DPA 
SEQ 

Area index 
SPR 

Device address 
TPC 

FWA 
SPT 

Area Name 

NSZ 

CKSM 



is the number of words per sector. 

is a flag to indicate this is the last record of an area. 

is a flag to indicate this is the last record of the tape. 

!s a flag to indicate the save data is continued on another volume. (The LRT flog will 
also be set, and SPR and NSZ will be zero. It is followed immediately by double 
tapemarks.) 

s a flag to indicate the area is on a disk pock. 

s the volume sequence number. It starts witti zero and counts modulo 16. 

s the Master Dictionary index of the area to which the record belongs. 

s the number of sectors of data in the record that ibllows this header. If zero, there 
s no following data record. 

s the physical device address from which the data was read. 

s the number of tracks per cylinder for the device. It is used for restoring areas to 
disks by the bootstrap. 

s the absolute disk sector number where the data records should begin being r^tored. 

s the number of sectors per track for the device. It is used for restoring areas to disk 
by the bootstrap. 

s the two character EBCDIC name of the oreo to which the data record belongs. 

s the number of sectors of zeros to write preceding the data record (if any) that fol lows. 

s the checksum of this record in 2's complement form. 
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The saving of an area for subsequent restoration is performed as follows: 

1. A small and large bootstrop are written with their checksums. 

2. A header for the CP-R disk bootstrap is written. The FWA and device number for the header is obtained 
from K:RDBOOT. 

3. The image of the CP-R disk bootstrap Is read from the file RADBOOT in the SP area, and written, 

4. Data records are written with each record being preceded by a header and followed by a checksum. 
Leading and trailing zeros of a record are not written. Size of the data records depends upon the amount 
of available background space used as a buffer. 

5. After all the specified areas ore saved, the tope is verified by using the checksum word of each header 
and data record. If no checksum errors ore found, the message 'SAVE TAPE OK' is printed. 

Since rSAVE makes no attempt to Interpret the directory in an area, it will attempt to read and sove bad sectors 
even if they hove been removed from use by a :BDSECTOR command . Nomiolly :SAVE reads as many sectors at a 
time as will fit in the background buffer and processes these as a unit and writes the non-zero dota to the tape. If 
the READ service call reports an unrecoverable error, :SAVE enters the error mode for that group of sectors. In 
this mode, all the background buffer is first filled with the doubleword data string C'LOSTDATA", and then each 
sector is read individually one behind the other. If no errors are detected, :SAVE leaves the error mode with no 
message . If errors are detected again, the first and lost sector numbers getting errors ore saved until the read-by 
sector is complete. One of the messages below output to M:LO. 

DATA IN SECTOR xxxxx MAY BE LOST IN AREA zz 

DATA IN SECTOR xxxxx TO xxxxx MAY BE LOST IN AREA zz 
At the end of the save tape build, if any such messages hove been printed, the message 

WARNING: ERRORS WRITING SAVETAPE. CHECK LISTING 
is output to M:LL and to M:OC in an ATTEND symbtont system. These messages do not cause processing to stop. 



:RESTORE The area(s) to be restored is specified on the :RESTORE command. The data is read using the device 

assigned to the M;6I DCS. The small bootstrap, large bootstrap, and CP-R disk bootstrap are skipped. Data records 
ore read and restored using the headers that precede them with all leading and trailing zeros of a record also being 
restored . Restoration has to be mode to the same type of disk as that from which the records were saved . 

The names of all areas to be restored are stored in the AREASWS table. The input tape is read once. As each area 
'• on the tape is found, it Is looked up in the AREASWS table and, if requested, restored and marked as such in the 
{ table. Areas on tope are identified by name, not index. If the area index on tape does not match the current index 
I for the area name, a warning is generated, but the restore is done for the nomed area anyway. Whenever all re- 
1 quested areas have been found, RESTORE terminates. When the end of the tape is reoched, the table is scanned 
I to ensure all explicitly named areas were restored, if any were rwt, an error message Is given. Areas requested 

by ALL do not produce an error message if they are not found. 

I The : RESTORE processor is also oble to process pre EOO format :SAVE topes. These format topes are distinguished by 
having a 5 word header record rather than a 6 word header. 
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Thi* header has the fonn 



15 16 17 18 19 20 22 23 24 



31 



WPS 


L 
R 
A 


L 
R 
T 





D 
P 
A 


0-0 


D 
P 
A 


Area index 


SPR 


Device address 


TPC 


FWA 


SPT 


NSZ 


CKSM 



where the fields are the same as in the 6 word header. Whenever -.RESTORE reads a 5 word header, it will re- 
format it to the six word form. The area name currently having "Area index" will be inserted as the'name; 
therefore changes in the index value for an area will not be detected. 

Flowcharts of various RADEDIT commands are illustrated in Rgures 65 through 70. 
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ALLOT 



ALLOT II 



GETFID 



Get filename, area, 
and account. 



ALLOT 1 V 



Store parameters in 
DIRExxxx table. 



ALLOTTOw 



C 



ERROR09 




ALLOT30 } r 



Form FPT and issue 
ALLOT CAL. 




Set ORG and RSIZE 
OS required for the 
file. 



Figure 65. RADEDIT Flow, ALLOT 
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[truncate] 



TRUNCl 



Scan keyword 




'FILE' 
found 



yes 



"KD 



GETFID 



Get filename, area, 
and account. 




TRUNC5 V 



Form FPT and issue 
truncate CAL. 




no 




EXECl 



ERROR04 



3 



e 




TRUNC12 




ERROR04 



TRUNC18 



) 



GETlSFIL/feETNXFIL 



Get next file in 
directory. 



TRUNC15 Jl 




yes 



Form FPT and issue 
truncate CAL. 



( 



Figure 66. RADEDIT Flow, TRUNCATE 
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/copyN 



TcOPYj 



Initialize COPY 
routine. 



/xopyV 



Scan commend 
(from field). 




Input From File 



Setup F:SI DCB 
and FPT (area, file 
name, ASN record 
si ze) . 



Scan command 
(to field). 




Illegal use of COPY. 
Return to Monitor 
or EXEC1. 



Figure 67. RADEDIT Flow, COPY 
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/copyN 


/£opv\ 

\^55 1 






«« 


Setup F:SI DCBand 
FPT (area, record 
size, file name = 
Module). 






1 




/copyN 


^ 


Scon cofTimand 
(to field). 




^/^opying*X^ 
^To output device^^ 
^V,pr op label ^/"^ 




no 


i 




yes 


Illegal use of COPY, 
Return to Monitor 
or EXEC 1. 


/£opy\ 


\ 


' 




Setup F:SO DCB 
(ASN, DCT Index, 
op Label Table 

Index). 






i 




ReadMODIR Hie 
into Background 
Buffer. 






' 




/copy\ 


1 


Get location of 
module in MODULE 
file by searching 
MODIR nie. 




1 


' 




Skipout to module 
on MODULE file. 




► 




Copy module to 
output device. 




/execA 







Figure 67. RADEDIT Flow, COPY (cont. ) 
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Setup F:SI DCB (ASN, 
OCT Index, Op Label 
Table Index. ) 



Scan command (to field). 




Setup F:SO DCB and FPT 
(area, file name, ASN, 
record size). 




/copyV 





Process options if any. 


copy\ 






22 7 


\ 


' 




If add option 
on output fil 


, skip to EOF 




Assign C device to 0. 



Copy to disk file. 



T 



Reassign C device to 
standard assign. 





Figure 67. RADEDIT Flow, COPY (cent. ) 
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Setup F.SI, F:SO 
DCBs and FPTs. 




Read EBCDIC file 
into Background 

Buffer. 



/copyV 



Invert EBCDIC in 
Background Buffer 
starting at highest 
core location. 



Reod DEFREFFile 
into Bockground 
Buffer starting at 
Lowest Core Locat. 



Scan module for 
DEFs and REFs. 



Set record 
length = for 
all librory files. 





/COPY 
38 



/^opyN 



WriteoutDEFREF 
file with new entry 
toDEFREF file. 



Invert EBCDIC 
in background. 



Write out EBCDIC 
fl I e w i th new entry 
to EBCDIC file. 



/copyN 



Read MODIR 
file into 
background. 



Write out MODIR 
file including 
entry for this 
module. 




Figure 67. RADEDIT Flow, COPY (cent. ) 
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/copyV 




Set op F:SO DCB 
(area, filename, 
ASN). 



Process options 
if any. 



If add option, skip 
to EOF on output 
file. 



Copy input file 
to output file. 



Write EOF on 
output file. 





Setup F:SO DCB 
(ASN, DCT Index, 
Op Label Table, 
Index). 



Process options 
if any. 




Figure 67. RADEDIT Flow, COPY (cont. ) 
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no 



Last 
area done 




Step index to 
next oreo. 



yes 



(- 




( 




GAN 



Get areas to 
be squeezed 



Set Index to 
process SP first. 




Read area's 
directory, build 
linked chain. 




Compute size of 
background copy 
buffer, build copy 
FDT's and DCB . 




Figure 68. i^ADEDIT Fbw, SQUEEZE 
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UNPKDIRE 



Unpack intormaHon 
for next entry on 
chain. 




BADSECTOR 
entry? 



yes 



F2 



no 




=-© 



yes 







no 



SQ MOV FILE 



Move file to its 
squeezed location . 



S — S + file length 
set next sector to 
squeeze a file into 



© 



© 




Combine extents. 




Figure 68. RADEDIT Flow, SQUEEZE (cont.) 
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© 




yes 



Write new 
directory out to 
area. 



CLRAREA 



Clear any sectors 
recovered and now 
not- used. 







no 



c 



Figure 68. RADEDH Fbw, SQUEEZE (cent.) 
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Move cfxjin entry 
to after last 
squeezed entry and 
make next entry. 







Move next entry 
and file (extent) 
to deleted file 
space. 















Step to next 
entry on chain • 



Find first unsquee- 
zed extent in this 
file. 








Move next chain 
entry and fi le 
(extent) to free 
space at end of 
area. 



Figure 68. RADEDIT Fbw, SQUEEZE (cont.) 
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Any 

3d sector entries^ 

between next extent 

^and next file^ 

9 



Rotate entries 
from next entry to 
next extent up, 
make next extent 
new next entry. 








Search unsqueezed 
files for largest that 
will fit in hole 
after last squeezed 
file. 



Create a deleted 
fi le entry exact 
size of hole. 



yes 



Break extent chain. 
Make next extent 
number one larger 
than previous. 







Move file's 
directory entry to 
next entry in 
choin. 



--0 







Figure 68. RADEDIT Flow, SQUEEZE (cont.) 
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(SAVEJ 



Move small and 
large boot to BKG 
buffer. 



Insert date in 
large boot. 



GAN 



Build list of 
area to save 
in AREASWS. 



TAPEID 




present 



no 



^AVE3 ♦ 



Checksum and 
write small boot 
program. 



SAVE1A 



yes 



Scan up to 4U 
characters of MSG 
and move to large 
boot. 



Set paper/mag tape 
read order, check- 
sum and write large 
boot program. 







Figure 69. RADEDIT Flow, SAVE 
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Get device info for 
SP orea's device. 
Form, checksum and 
write header for 
RADBOOT. 



Read RADBOOT. SP 
file, checksum, arK 
and write to tape 



SAVE4 



Find index to first 
area marked !n 
AREASWS table. 








jT Error: Save A 
V^notdone. ^ 




SAVE7 



Set flag: last 
area on tape . 



Figure 69. RADEDIT Flow, SAVE (cont.) 
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© 







Accumulate count 
of sectors of lead- 
ing zeros. 








SAVE 11 i 
Insert device and 
area dependent 
data into header. 



SAVE16 V 



Read in next 
buffer's worth of 
data from orea . 




Calculate numberof 
sectors of leading 
zeros. Add and ac 
cumulate count, 
store in header. 



Calculate and save 
number of sectors 
of trailing zeros. 







Figure 69. RADEDn Flow, SAVE (cont.) 
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( 



yes 



Store size of 
remaining block 
in heoder. 



SAVE24 



SAVE25 



no 



SAVE26 u 









Checksum and 
write header. 







End of area 


^ 




Set end of area 


^ ? ^ 


X^yes 




flag in header. 


\ 


rK> 








J 


' 











Set end of tape 
flag in header. 



Figure 69. RADEDIT Fk>w, SAVE (cont.) 
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Checksum and 
write data. 



Set traliing zeros as 
accumulated count 
of leading zeros. 



SAVE30 



Close DCB to 
area. 



o 



no 



Step area index to 
next area to be 
saved. 









SAVE2C 



Write double 
EOF's on tope 
and rewind. 



Verify tape by 
reoding each block 
and checking 
checksum. 



Rewind and 
unbad tape. 



(execi J 



Figure 69. RADEDIT Fk>w, SAVE (cont.) 
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12. TERMINAL JOB ENTRY 



(- 



TJE COC Tables 

In order to treat a communication line as a device, the extensions given below exist for the DCT tables. These DCT 
entries are extended according to the number of communication lines declared on the :COC command. 



Contents 





Size 




Label 


(Words) 


Length 


DCT2 


1/4 


No. lines 


DC 13 


1/4 


No. lines 


DCT4 


1/4 


No. lines 


DCT5 


1/4 


No. lines 


DCT6 


1/4 . 


No. lines 


DCT 14 


1/4 


No. lines 


DCTI6 


2 


No. lines 


DCT18 


1/4 


No. lines 


DCTMOD 


1 


No. lines 


DCTJID 


1/4 


No. lines 


DCTTJE^ 


1/4 


No. lines 



COC index (begins at zero) 

X'CO' for all entries 

X'Or for all entries 

Zero 

Input queues 

Line index (begins at zero) 

'nl IlLNxxx', where 'xxx' is the EBCDIC representation of the 
decimal line number beginning at '000'. 

Output queues 

'7611' for all entries 

Zero 

X'04' = IN IT to be performed 
X'08' = active line 
X'Or = logon to be performed 
X'10' = logoff to be performed 
X'20' =INITwith debug 
X'02' = logon being performed 



In addition, a new index is kept in the 0th entry of DCT7. This index represents the total number of DCT entries 
including communication lines. DCTl entry zero will continue to represent the total number of noncommunication 
type equipment. 

Upon completion of SYSGEN, KrDCTl points to DCT7 instead of DCTl. 

The following tables and values are generated at SYSGEN from the parameters on the :COC control commands. 



Lobel 

LCOC 

COD:LPC 

COD:HWL 



Size 

(Words) 

value 
2* 



Number 



COC 



COC 



Contents 

Number of COCs-1 

Each double word represents the range of logical line ilbmbers for 
the COC (e.g., COCO has 7 lines; COCi has 8 lines; DBLWRDl 
0, 6; DBLWRD2 7, 14). 

Each double word is a bit mask representing HARDWIRED lines 
with a bit set. 



New field. 
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Size 




Label 


(Words) 


Number 


COH:DN 


1/2 


COC 


COAIIL 


1 


1 


CO^^OIL 


1 


1 


CO:IIL 


1 


1 


CO:OIL 


1 


1 


COArllG 


value 


— 


COA:OIG 


value 


~ 


CO:STAT 


1 


COC 


COrOUTRS 


1 


ccx 


CO:RCVON 


1 


COC 


CO:XDATA 


1 


COC 


COrRCVDO 


1 


COC 


COiTRNDO 


1 


COC 


COrXSTOP 


1 


COC 


CO:LST 


1 


COC 


CO:RINGE 


1 


COC 


COH:RBS 


1/2 


COC 


CO:IN0 


4 


1 


CO:INN 


7 


(LCOOO) 


COtOUTO 


6 


COC 


CO:OUT 


1 


COC 


COrCMND 


4 


COC 


COH:II 


1/2 


COC 


C0H:10 


1/2 


COC 


COCBUF 


4 


fotai 
BUFFERS 


COCHPB 


1 


1 


HRBA 


value 


~ 


LNOL 


value 


— 


ccx:oc 


1/4 


LNOL 



Contents 

Device address 

All input interrupt levels 

All output interrupt levels 

Input interrupt level-COCO 

Output interrupt level-COCO 

Input interrupt group number 

Output interrupt group number 

WD, 10 X'30n0' when n begins at and is incremented by 1 for 
each successive entry 

RD,7 X'30n0' 

WD, 7 X'30nr 

WD, 6 X'30n5' 

WD, 7 X'30n3' 

WD, 7 X'30n7' 

WD, 7 X'30nE' 

Offset to next RING buffer character 

Pbinter to last word of RING buffer + 1 

Size of RING buffer 

COC input PSD 

COC n input PSD 

COC output PSD 

Address of output PSD 

COC command list 

Address of input interrupt 

Address of output interrupt 

Used for input and output buffers 

Head pointer for COC buffers ■* 

4x(total BUFFERS- 1) 
Total lines for all COCs 
Output character count 
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Label 


Size 
(Words) 


Number 


Contents 


LB:UN 


1/4 


LNOL 


DCT index if in use 


ARSZ 


1/4 


LNOL 


Actual record size 


BUFCNT 


1/4 


LNOL 


Number of buffers in use 


MODE 


1/4 


LNOL 


X'80' = echoplex 
X'40' = escape sequence 
X' 10' = read pending 
X'08' = tab simulation 



MODE2 



MODE3 



MODE4 



1/4 



1/4 



1/4 



MODECPR 1/4 
COCTERM 1/4 



LNOL 



LNOL 



X'80' = turnoff signal 

X'40' = paper tape mode (XON = 1, XOFF = 0) 

X'20' =spoce insertion (esc 5) 

X'08' = shift to lower case (esc(, esc)) 

X'04' = check parity 

X'80' = tab relotive 

X'40' = paper tope mode (escP) 

X'08' = input lost (insufficient buffers) 



LNOL 


if RATE 




0- 10 = 18 




11-15 = 19 




16-30 = 1A 




31-60= IB 




60 - = IC 


LNOL 


X'80' = non- 


LNOL 


= M33 Tele 



1 = M35 Teletype 

2 = M37 Teletype 

3 = Xerox Model 7015 



RSZ 


1/4 


LNOL 


Record size 


CPI 


1/4 


LNOL 


Input carriage position 


CPOS 


1/4 


LNOL 


Present carriage position 


COCII 


1/2 


LNOL 


Input insertion point 


COCIR 


1/2 


LNOL 


Input removal point 


COCOI 


1/2 


LNOL 


Output insertion point 


COCOR 


1/2 


LNOL 


Output removal point 


TL 


1/2 


LNOL 


Tab link 


EOMTIME 


1/2 


LNOL 


Time out value 



TJE Commands 

The following TEL commands translate to service calls: 
Command Service Cal I 



MESSAGE 
STDLB 



TYPE with id 
STDLB 
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Commond 

MEDIA 

BATCH 

JOB 

CANCEL 

SETNAME 

INIT 

DEBUG 

EXIT 

EXTM 

STOP 

START 



Service Coll 

MEDIA 

JOB 

JOB 

JOB 

SETNAME 

INIT 

DEBUG, WAIT 

WAIT 

EXTM 

STOP 

START 



Each of the other TJE commands Is treated as follows: 

TABS obtains o four-word piece of temp spoce, fills it with the indicated labs, and attaches it to the JCB 
through JCBTABS. 

OFF sets bit TJEOFF of DCTTJE and executes a TERM service call. 

RUN does a SETNAME of TEL to the taskname, sets bit TJEDBG if DEBUG is specified and executes a 
TERM service call. 

QUIT must execute a TERM service call. 

CONTINUE or GO must execute a TRTN service call. 

TJE Structure 

Account Maintenance 

The structure of the AI file in the SP area is as follows: 

• The file is created with EDIT; thus, columns 73-80 will contain the line numbers. 

• The file contains one account record per account and multiple subaccount records per account record. 

• An account record contains the account number (e.g., K1514201). 

-A 

• A subaccount record which must immediately follow the account record contains the account and sub- 
account (e.g., K1514201, CRO107143151), 

More parameters will be added to each type of record later. 

Since the file is a Fixed length record, blocked file, a binary search may be used to locate and verify logon data. 
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TEX Opcntion 

When the COC handler recognizes a new line to be logged on, bit TJEON of DCTTJE is set and the terminal ex- 
ecutive (TEX) will be started. Upon activation, TEX scans DCTTJE using DCT7 entry zero as the index to determine 
what is to be done. The following operations are performed if the indicated bit is set: 

TJEON causes TEX to output the logon message. If time-out occurs, COC sets TJEOFF and starts TEX. If 
input is successful within five tries, and the AI file contains the matching account and subaccount, TEX 
creates a job with jobname equivalent to the controlling device (DCTI6, bytes 3-7). TEX executes a 
SETNAME TEL = TEL, outputs the logon message to the user and the operator, resets TJEON, sets TJEACT 
and TJEINITand continues. 

TJEOFF causes TEX to KJOB the job, clears DCTTJE, and writes a logoff message to the terminal ond the 
operator and continues. 

TJEINIT causes TEX to reset TJEINIT and TJEDBG, and to INIT TEL within the indicated job with 
DEBUG if TJEDBG is set. 

Ail ECB operations execute with no wait. 

TEX uses WAIT whenever It is at an idle state. WAIT will return when an ECB is posted or a START is received. 

In all error cases, appropriate messages are produced and if fatal, TEX sets TJEOFF. Therefore, the order of bit 
checking by TEX is important and is as follows: 

TJEOFF, TJEON, TJEINIT 

TEX is a mapped secondary task that runs in the CP-R job. It exists as monitor overlays, and calls SCAN to break 
apart the logon accounts. It is in port a PROLAY that processes an RTS stock and other needed data. 

TEL Operation 

TELexistsas both NROLAY(s) and an SSOLAY. The SSOLAY is used to provide context (stacks) in which to run 
TEL when no user's load module is being run. The actual executable code of TEL is available as NROLAY(s) which 
run in either the user's or TEL's load module. The toggling between TEL ond the user in a synchronous environment 
(one task) is actually accomplished by TEX toggling between TEL and the user. TEL may therefore be entered in 
two ways: 

1. By a direct branch to TEL from the TEL load module. 

2. By an entry to TELCNTL when a CONTROL sequence occurs (identical to BREAK) from a user load mod- 
ule. In this case, TEL will eventually do a TRTN if GO or CONTINUE is Input. 

Upon initially (job creation) gaining control, TEL obtains o blocking buffer, places the pointer in JCB word JCBT 
JEB6, assign default operational labels, assign default tabs, and begins operation. At any point in its operation, 
TEL is prepared to receive a CONTROL sequence. Its action at any time other than that initial CONTROL from o 
user load module is to execute a TRTN, since this is simply used to activate TEL after a WAIT. 

TEL takes its input through the C operational label and directs its output to the LL opiabel. TEL uses the blocking 
buffer to construct its FPTs, DCBs, and buffers. Tliis information is constructed for each TEL command. All asyn- 
chronous operations are executed with wait. 



an 
but 



TEL uses read with prompt (I) for command input. When input is complete, it uses SCAN to parse the injjut. If 
error is discovered during parsing a (?) is output beneath the offending field. If no error occurs during parsing, __. 
instead on the service call generated as a result of the input, TEL generates a question mark in column and then 
prompts with a new cycle. 

Job management and task management are altered as follows to accommodate TJE: 

• Task termination recognizes the TEL task, upon termination sets TJEINIT in DCTTJE, and starts TEX. 

• Job termination recognizes terminal jobs and does not allow job termination until TJEACT is reset. 
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Time slicing in CP-R is available for non-TJE systems since the implementation is not terminal dependent. 
The algorithm used for time-slicing in CP-R must be predicated upon the following guidelines: 

1. Scheduler thrashing (inefficient context changing) must be avoided. 

2. Swapper thrashing (inefficient rolling in and out) must be avoided, 

3. Background must run at nearly full speed. 

4. Symbionts and media must run at full speed. 

5. The algorithm should fit nicely into CP-R's present structure and be easily expandable if the need arises. 
The algorithm and its implementation follow: 

a. Three variables exist, all of which will be fixed ctSYSGEN, depending on the swapping device. 

10 ms <QMIN S 140 ms is the minimum time a time-sliced task will be allowed to run when sched- 
uled before being interrupted to service other time-sliced tasks. 

150 ms S QSWAP S 400 ms is the minimum time an unblocked time-sliced task must remain in core 
before being considered a candidate for swap out. Unblocked means either compute or I/O bound. 
(Each I/O operation is equivalent to 10 ms compute time. Terminal input is not considered as (/O 
bound. ) 

500 ms SQMAX is the amount of time an unblocked time-sliced task will run before being consid- 
ered for exchange with another user who was rolled out in an unblocked state. 

b. Time slicing is specified by bit F5 in the INIT service call and indicated by bit TSLICE of LMISTAT. 
Default priority is X'FFFF', which is equivalent to the priority of background; thus all TEL and TEL 
INITed tasks will run at a priority equivalent to background. 

c. The disp>atcher searches its queue to find the highest priority candidate to run. If the task is time- 
sliced, CLOCK 4 will be set up to interrupt ofter QMIN. The task !s then given control andmayonly 
be interrupted at its dispatcher level for rescheduling by the occurrence of QMIN or a higher priority 
nontime-sliced task. 

d. When the dispatcher again gains control, it examines the last dispatched task. If the task is time- 
sliced, it is requeued to the bottom of its priority. 

e. In order to give background improved response, the posting logic moves background to the top of 
its priority queue when it comes off a wait condition. 

f. MMEXEC's roll-out search is as follows: 

W/O TJE With TJE 

BKGRD INACTIVE TIME SLICED TERMINAL INPUT 

BKGRD ACTIVE TIME SLICED BLOCKED 

LONG WAIT INACTIVE 

LONG WAIT ACTIVE LONG WAIT INACTIVE 

: LONG WAIT ACTIVE 

TIME SLICED EXCEED QSWAP 
BLOCKED is defined as anything other than UNBLOCKED (I/O or compute bound) or terminal input. 

Terminal input and BLOCKED tasks are treated similarly to long wait tasks. Higher priority tasks 
in these states may be rolled out. The roll ECB will be added to the R-chain when it becomes 
executable. 
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Since OSWAP tasks are placed in MMEXEC's R-cha!n upon roll-out (thus being immediate candidates 
for roll-in), the search for QSWAP tasks applies only to equal or lower priority. ) 

g. MMEXEC continues to run until no candidates are found to satisfy R-cha!n requests or until the R-chain 
is exhcusted and then executes a WAIT. Whenever a time-sliced task is awaiting terminal input, be- 
comes blocked, or exceeds QMAX, the MMEXEC is started. 

h. In order to keep MMEXEC above the time-sliced tasks, the following rule applies: 

Whenever time-sliced and nontime-sliced tasks are queued at the same priority, the nontime-sliced 
tasks are queued above the time-sliced tasks. By way of example, a typical CP-R task structure may 
appear at a given moment as follows: 

Symbiont Executive 

Media 



DISP 



. Terminal Executive 



.Control Task 
.MMEXEC (floats) 
.TEL (time-sliced) 
.TEL (time-sliced) 
. BKGRD (time-sliced) 
-TEL (time-sliced) 
-TEL (time-sliced) 



priority X'FFFF' 
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ia MEDIA 



The MEDIA processor consists of three ports: 

1 . Key-in processor 

2. CAL service call processor 

3 . The MEDIA tasl<. This ta$l<: is subdivided into two ports: an overlay section and a resident section . 

The MEDIA key-in processor forms a 13-word table containing the information from the parameters specified. This 
table is then sent to the MEDIA task as a signal dote packet to be processed. The signal to the MEDIA task is sent 
with a class flag of 

X'8000' 

to indicate a key-in signal . The format and contents of a key-in packet ore as follows: 

7,8 15, 16 23, 



I. 



MASN 



J4. 



Area Name Input 



Sfile Count 



Input Nome 



Input Name 



Input Account Name 



Input Account Nome 



Spare 



Spare 



Spare 



Space 
Count 



WE OF 
Count 



Area Name Output 



SfJIe Count 



Output Name 



Output Name 



Output Account Name 



Output Account Name 



M 



, Input 
Specification 



Output 
Specification 



where 

IFILE 1 



ofileJ ^ 

= 2 



device name specified. 

oreo and file name specified. 
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( 



ALL 


= 
_ ] 


DEL 


= JE( 




= 1 


FREW 


— ] 


lUNLOAD 


= 




= 1 



MASN 



Area Name, 
Input (Output) 
Name, Account 
Name 



SPACE 



NVFC 



ADD 



= 



= 1 



= 



= 1 



= 



= 1 



WEOF 


= 




= 1 


OREW 


= 




= 1 


OUNLOAD 


= 




= 1 


Space Count 




WEOF Count 




SFILE Count 





copy only the specified file. 

on magnetic tape, copy all files up to an end-of-file double topemark. 

retain the file after the copy. 

delete the file after the copy. 

leave magnetic tape positioned after file copied. 

rewind the tape to BOT after the copy. 

same as IREW = 0. 

tope is rewound "off-line" after the copy. 

the MEDIA Action Sequence Number to identify the action request. The next number in 
sequence is assigned to each MEDIA request. 

when IFILE (OFILE) - 2, the corresponding Area Name contains the two-letter EBCDIC 
name of the area. Input (Output) Name contains the filename to copy from (to), and 
Input (Output) Account contains the account name. 

when IFILE (OFILE) = 0, the device name is left-justified and blank filled in the Input 
(Output) Name field. The corresponding AREANAME contains zeros or the SFILE count. 

for printer destined files, the printer is spaced according to the VFC byte (NVFC = 0), 
or is to be single spaced (NVFC = 1). 

the printer is to be spaced "Space Count" lines betv/een each line output (NVFC = 1). 
This field is not used when NVFC = 0. 

for printer destined files, the printer is to operate with VFC, and the first byte of every 
record contains the VFC infomiation. 

for printer destined files, the printer is to operate without VFC, and the first byte in 
every record is dato . 

the output tape is to be positioned according to the SFILE count before the copy 
commences. 

the output file will follow the lost file on magnetic tape or be added to the end of an 
existing disk file. 

two end-of-files are to be written to the output tope after the copy. 

"WEOF Count" end-of-files are to be written to the tape after the copy. 

the output tape is to be left positioned after the file. 

the output tape is to be rewound after the copy and end-of-files (if any) are written. 

same as OREW = 0. 

-A 
the output tape is rewound "off-line" after the copy and end-of-files (if any) are 
written . 

the number of lines to space the printer between each line of output when NVFC = 1 
SPACE = 1 . 

the number of end-of-files to write to the output tope after the copy when WEOF = 1 . 
the number of files a magnetic tape is to be forward skipped before the copy Is started. 
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MEDIA key-ins specifying the control functions C, L, I, X communicate directly with the MEDIA task, setting or 
resetting the appropriate indicotors in the resident portion of the MEDIA task. 

The MEDIA service call forms a nine-word table from the call's FPT, job name and task name. This table is sent 
to the MEDIA task as the data packet of a Signal call . A class mask of 

X'40O0' 

is used for the Signal to identify it as a service call packet. The contents of a service call packet are as follows; 



MASN 



Area Name 



File Name 



File Name 



Account Name 
Account Name 



Job Name 
Job Name 



Task Name 



Task Name 



where 
File 
DS 



NVFC 



DEL 



MASN 



= 2 the file is specified by the area and file name. 

= printer destined files will be printed single spaced (NVFC = 1), or according to the 
VFC byte in the record (NVFC = 0). 

= 1 printer destined files will be double spaced (NVFC = 1). This field is ignored when 

NVFC =0. 

= printer destined files will be printed with VFC, and the first byte of each record will be 
used as the VFC byte. 

= 1 printer destined files will be printed without VFC; the first byte of each record j^ 

printed. 

= do not delete the file after the copy. 

= 1 delete the file after the copy. 

the MEDIA Action Sequence Number. The next number in sequence is ossigned to each 
request as an identification number. 
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Area Name 
File Name 
Account Name 



Tosk Nome! 
Job Nome J 



the area, file and accfount name as specified in the MEDIA call (FILE = 2). 



the task- and job-nome of the task that issued the service call. These will be printed 
on the burst page of a printer-destined file. 



The resident section of the task contains all permonent areas the task requires and a short segment of code that is the 
main loop of the copy. The contents and structure are as follows: 



Lobe I 

MEDRaRL 
MEDRQINF 
MEDRJOB 
MEDRTASK 

MEDRITMP 
MEDROTMP 

MEDRBBl 
MEDRBB2 
MEDRERRS 

MEDRIDCB 

MEDRODCB 

MEDRRA 
MEDRRB 
MEDRWA 
MEDRWB 

MEDRCHKR 
MEDRCHKW 
MEDROC 
MEDRFPTX 

MEDR900 

MEDRLOOP 

MEDRSTCB 

MEDRSTAK 
^here 

MASN one byte 
End when END = 



Contents 



MASN 



Status 



Job Name (8 characters) 



Task Name (8 characters) 



Input device 
index, or zero 



Output device 
index, or zero 



Input Device Control Inlb. 



Output Device Control frifb. 



First blocking buffer control word temp 
(zero if no blocking buffer) 



Second blocking buffer control word temp 
(zero if no blocking buffer) 



Error indicator/error code (4 characters) 



TYC code if device error; otherwise, 



Input DCB 



Output DCB 



FPTs to read and write "A" and "B" buffers, check Reads and 
Writes, open and close DCBs; miscellaneous services 



No-operation Error Piocessor 



Copy code 



STCB 



Temp Stack 



counter; next number is assigned to each new MEDIA request as an identification number. 
1, do not Initiate a new copy operation. Set by MEDL^ control function "L". 
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Stop = 1 suspend the current copy. Set by control function "S". 

= continue or resume the current copy. 

Status set by MEDIA when operator intervention is required or when execution must be suspended to control 
where processing is to be resumed. Values and meanings are: 

idle. 

1 device manual during pre-copy processing. 

2 in a copy, stopped by S key-in. 

3 device manual during copy. 

4 waiting device from Symblonts, exclusive use. 
3 waiting tape mount and operotor okay. 

6 printing break pages in part 2. 

Abort when ABORT = 1, abort the current copy operation. Set by control function X. 



Job Name 
Task Name 



[ the 8-character job and task names of the current copy. 



Input/Output the DCT index of the input and output devices, or zero (0) if to a disk file or null device. 

Index and 

Control Words the Control Information halfword has the format: 



5 

w 
1 

T 

C 
H 


1 

N 
T 
E 
R 


T 
A 
P 
E 













u 

T 

K 


1 

N 
O 
K 


RECL 



Input, Output 
DCBs 



Bit 1 2 3 4 5 6 7 8 15 

where 

SWITCH switchoble device; other devices of the same type may be substituted. 

PRINTER line printer device —any model. 

TAPE magnetic tape device —any model. 

OUTOK valid output device. 

INOK valid input device. 

RECL maximum record length in words, minus 1. 
prototype DCBs for the Input and output files. 



FPTs two eoch Read and Write FPTs and two Check FPTs, Input and output are doubled buffered, plus an 
FPT to OPEN/CLOSE the DCBs and space for pre-processing FPTs. 

Copy code the resident copy code, 

STCB secondary Task Control Block for the MEDIA task. 

Temp Stack push down stack. 

The overlay section contains the functioru necessary to process the MEDIA CALs and key-ins, effect the MEDIA 
control functions, acquire the specified input/output devices, open and close the files, and to do any pre- or 
post-processing. 
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For each copy, fhe next operation is selected b/ searching for a signol, first with a class mask of X'8000' to select 
the highest priority keyin request ond then, if none exists, with a class mask of X'40O0' to select a CAL service 
request. 



Having selected a request, the DCBs for both files are formed. Conflict with the SYMBIONT processor is then 
checked and a delayed request process is initiated if it exists (see below). The input DCB is then opened. An error 
due to unavailability goes to the delayed request process. 



Successful opening of the input allows a similar process to start in the output file. When both files are successfully 
opened pre-copy preparation can begin. 



If it is impossible to obtain both the input and output devices, due either to symbiont conflict or device unavail- 
ability, delayed request processing is initiated. This is done by closing the input file, if open, to free the device 
and avoid deadlock conditions. The "Requested by MEDIA" bits (bit 1) are set in each device's DCTRBM byte. 
Then, if either device is in conflict with the SYMBIONT processor, the MEDIA task does a foreground WAIT to 
await a start from the other task when it is finished with the devices. If they are unavailable for any other reason, 
a five-second timer isjnitlated and then a foreground WAIT Is done. In either case an internal status indicator is 
set to "acquiring devices". 



When the foreground WAIT returns and the "acquiring devices" indicator is set, processing continues as above with 
checks for input device Symbiont conflicts. This process is repeated until both devices are successfully acquired. 



After successfully opening the two files, any pre-copy p)osItioning is done first for the input and then the out- 
put file. The resident copy loop is prepared to perform the requested NVFC or SPACE, n processing and the 
copy initiated. 



At copy completion, postcopy processing and positioning are done. Then for both normal and abnormal or abort 
terminations, the DCBs are closed and the SYMBIONT task started if it has requested either device. 



The MEDIA internal status is set to "idle" and a SUPERWAIT with a short timeout is done. When the wait returns, 
the next copy request is polled as above. 



Figure 70 shows the definitions of the field and indicator symbols are defined in the CPREQU System. 
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LAbLL 

l\IAME 




VALUE 


liJDEX 
TYPE 




CC;;KEHT 








ECb 


CLASS 


FLAGS 


KEDKEYCL 


EOU 


X'oOOO' 






A KEY-IiJ RECUESI 


MEDCALCL 


ECU 


X'l4000' 






A CAL RECUtST 








NEDIA 


CONTROL FLAGS 


hEDRGU 


ECO 


X'bOOO' 






STARI OR COuTIwUE A COPY GPEriATiOi. 


MEDREND 


ECU 


X'OoOO' 






END COPY, DO NOT START A NE». COPY 


MEDRSTOP 


ECU 


x'onoo' 






STOP (SUSPEuD) COPY IMKEuIATELY 


MEDRAcRT 


ECU 


X'OOOI • 






ABORT CURRENT COPY OPERATIOr^ 


MEDRMCTL 


ECU 


H 1 5 






MASK FOR STi^RIivG CUi^IfiOL FLAGS 






STATUS 


INDICATORS 


FOR 


MEDIA AFTER STARTS 


HEDSIDLE 


ECU 


00 






IDLE 


MEDSIMOP 


EOU 


l«»l 






DEVICE Ii>IOP, AWAITING READY 


MEDSCOPY 


ECU 


2*»l 






IN A COPY; PROCESS WAS STOPPED 


KEuSICPY 


ECU 


3*»l 






IN A COPY; DEVICE IwOP 


MEDSACIR 


ECU 


4«»l 






ACOUIRING DEVICES FROM SYi-iElOwTS 


HEDSTAPE 


ECU 


5«»l 






WAITING TAPE MOUNT, 'I' KEY-In 


MEDSHEDR 


ECU 


6*»l 






PRINTING BREAK PAGES IN PART 2 






DEVICE CHARACTERISTIC INDICATORS 


MEDASw 


EOU 


X'6000' 






OK TO Switch to similar device, 


KEDAPnwT 


EOU 


X*4000' 






DEVICt, IS A PRINTER 


MEDATAPE 


ECU 


X'2000' 






DEVICE IS A TAPE 


KEDAOOOK 


EOU 


X'0200' 






DEVICE LEGAL FOR OUTPUT DEVICE 


MEDAINOK 


EOU 


X'OIOO' 






DEVICE LEGAL FOR IwPUT DEVICE 


MEDA#WRD 


ECU 


X'OOFF' 






W UMBER OF WORDS IN MAX.LEN.REC. 


HEDR3SZ 


EOU 


IU5 






SIZE OF STACK AREA IN ROOT 






hAP 


FOR COPY R 


EOUEST SIGiaL PACKETS 


KEDPLEiJ 


ECU 


16 






LENGTH OF A SIGimAL PACKET 


MEDPfcASE 


EOU 





FW 




HEADER WORD / BASE OF PACKET 


KEDPICTL 


EOU 


1 


FW 




IrtPUT CONTROL WORD / AREA NAME 


KEDPIFIL 


EQU 


2 


F»* 




INPUT FILE-, DEVICE- NAME 


MEDPOCTL 


EOU 


9 


t\^ 




OUTPUT CONTROL WORD / AREA NAME 


MEDPJOBN 


EQU 


6 


Fin 




JOB NAME OF REOUESTING TASK 


MEDPOFIL 


EOU 


10 


Fk. 




OUTPUT FILE-, DEVICE- NAME 


HEDPTSKN 


EOU 


6 


FW 




TASK ftAME OF REQUESTING TASK 


KEDPIACN 


EOU 


4 


FW 




INPUT FILE ACCOUNT NAME 


MEDPOACW 


EOU 


12 


FW 




OUTPUT FILE ACCOUNT NAME 


MEDPKASN 


ECU 


5 


BYTE 




SEOUENCE / ID NUMBER '^ 


KEDPISFL 


ECU 


6 


BYTE 




SFILE COUNT, INPUT 


HEDPOSFL 


EOU 


18 


BYTE 




SFILE COUNT, OUTPUT 


MEDPIOFT 


tOU 


2 


HVv 




IfvPUT OPTIONS riw 


KEDPIAR 


ECU 


3 


HW 




INPUT AREA NAME 


MEDPOOPT 


EOU 


16 


tif. 




OUTPUT OPTIONS Hw 


MEDPOAR 


EOU 


19 


HW 




UUTPuT AREA NAME 



Figure 70. Field and Indicator Definitions 
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LAfchL 




VALUE 


INDEX 


COhHENT 


W A ^ 1 E 






TYPE 








OPTIOi^i . 


LlJi^ICATORS 


AS BYTE VALUES 


HEdOFILE 


ECU 


X'bO' 




FILE IS SPECIFIED 


hEuOALL 


EQU 


X' 10' 




ALL FILES ON INPUT TO EE COPIED 


t-iEDODEL 


ECU 


X'Ob' 




DELETE INPUT FILE AFTER COPY 


HEDOSPAC 


£QU 


X'20' 




SPACE COui\T SPECIFIED FOR PRlwTEh 


MEDOHVFC 


EOu 


X' 10' 




DO NO VFC; 1ST DATA BYTE IS DATA 
IF VFC, 1ST DATA BYTE IS VFC BYTE 


KELOADD 


EtU 


X'Od' 




ADD FILES TO EXISTlwG FILE On TAPE 


hEDUwEOF 


EtU 


X'04' 




WhITt tOrS AFTER COPY 


HEDOREW 


ECU 


X'02' 




REWIND INPUT/OUTPUT AFTER COPY 


l-iEDOUl^LD 


EQU 


x'O r 




UNLOAD INPUT/OUTPUT AFTfcH COPY 






OPTIOMS AS 


HALF-hORDS 


MEDHFILE 


ECU 


MEDOFILE«»o 






KEUHALL 


EOU 


NiEDOALL*»d 






MEDHDEL 


EOU 


MED0DEL*«6 






tiEDKriE'w 


ECU 


MEDOREw*»b 






hEDHUiJLD 


ECU 


MEDOUiMLD»»b 






MEDHSPAC 


EOU 


MEDOSPAC*»b 






HEDHwVFC 


ECU 


KEDOwVFC«»b 






MEDHADD 


EOU 


KEDOADD»«o 






MEDH'ftEOF 


EOU 


MED0wEGF»»8 










OFFSETS TO 


INF0R!;ATI0N in resident TABLES 


MEDfiSw 


EOU 





BYTE 


NEXT ID NUMBER TO BE ASSIGNED 


HEDRSTAT 


EOU 


3 


BYTE 


STATUS INDICATORS 


KEDR#CAL 


EOU 


4 


BYTE 


NUMBER OF CAL REQUESTS QUEUED 


KEDfiCFIN 


ECU 


5 


BYTE 


LAST CAL ID PROCESSED 


MEDR*KEY 


EOU 


6 


BYTE 


NUMBER OF KEY-IN REQUESTS QUEUED 


MEDRKFIN 


EOU 


7 


BYTE 


LAST KEY-IN ID PROCESSED 


MEDRFLAG 


EQU 


1 


HiJ 


CONTROL FLAGS / STATUS INDICATORS 






OFFSETS INTO READ/WRITE FPTS 


MEDRRBUF 


EOU 


^ 


Fw 


BUFFER ADDRESS, READ FPT 


MEDRWBUF 


EOU 


H 


FW 


BUFFER ADDRESS, WRITE FPT 


MEDRRBYT 


EOU 


5 


Fw 


iJUMEER OF BYTES TO READ 


MEDRWBYT 


EOU 


5 


FW 


NUMBER OF BYTES TO WRITE 


MEDKRBTD 


EOU 


6 


FW 


BYTE DISPLACEMENT IN 1ST WORD 


HEDR#BYT 


EQU 


7 


Fw 


ACTUAL wUMBEH OF BYTES READ 



Figure 70. Field and Indicator Definitions (cont.) 
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14. EDIT SUBSYSTEM 



Functional Overview 

The EDIT processor is a line-at-a-time text file manipulation utility available to the CP-R user either 
background stream or under control of the Terminal Job Entry system executive. 



the 



EDIT operates in one of two states: the command state or the active state. The commandstate isdefined os the time 
in which EDIT is accepting orprocessing a command. This state is entered when EDIT types its identifying prompt 
character(5), * or **, requests input, and awaits the next command. On the other hand, the active state is defined 
as that time in which EDIT is executing commands, processing text, or accepting text. This state is entered when a 
command starts execution and terminates at the completion of the command. 

EDIT is assembled as two modules, one of which is considered as context (writable) and the other as procedure (read 
and execute). The context module is linked into the processor root. The procedure module is linked as a segment 
with the characteristics ILOAD, (SHARE, SYSTEM), and (ACCESS, RX). The user may chose to omit the sharability 
option, but if he includes it (recommended in a multi-usage environment), he must assign a segment number which 
does not conflict with other system-sharable segments defined at his installation. EDIT should be linked as a 
secondary foreground task since this permits both foreground and background execution. 



The memory allocation for EDIT is shown in Figure 71 . 



Monitor 



EDIT Load Module 



Unused Virtual 
Memory 



ROOTl I SEGMENT I ROOT2 

x'6000' x'6400' x7800' x'7A00' 



(context) 



(procedure) 



(automatic^ 
context J 



Figure 71. Memory Allocation EDIT 



EDIT files are stored on disk as keyed records with the sequence number used as a key. It is assumed to have on 
implied decimal point such that when the key is converted to EBCDIC for printout purposes the sequence number 
1 2 3 4 5 6 7 appears as 1 2 3 4 . 5 6 7 . The largest sequence number allowed is 9999.999. 



Operational Overview 

EDIT is organized in a highly modular fashion. Upon entry, BEGINEDITOR performs subsystem initialization after 
which MASTERPARSER controls input commandscan of a line of user commands. From a line of input command (s) the 
Command Description Table (COT) is built. Error checks are made and warnings given to the user if necessary, 
MASTERPARSER uses a number of subroutines to build the Command Description Table: GETNEXTNAME ond 
GETNEXTPARAM to break down text strings; PARSE:I:CMND$INTG to process integer strings; PARSE:I:CMND$STRG 
to process alphabetic strings in slashes; and routines of the form PARSE: cmnd for command processing. Tne format 
of the Comnrand Description Table is given in Figure 72. 

On completion of a command line (with possible extension), control is passed to the MASTEREXECUTIVE routine 
to perform the commands which then reside in the CDT. Figure 73 shows the general processing flow of EDIT. 
MASTEREXECUTIVE serves as a driver for command processing using F: routines for file commands, R: routines for 
record commands and I: routines for intra-record command processing. 
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CDT 





Start of 


1 


First Entry, 




If any 


n 



Number of Command Entries 



End-of-CDT Marker 



31 



Notes: 

1, Entry Format 



Word 


1 



Byte 






1 


2 


3 


Number of words 
in entry 


Command number 
(see Table 8.) 


Order of occurrence 
in command line 


Number of items 


Item 1 type 


Item 1 Text 
Pointer 


Item 2 type 


Item 2 Text 
Pointer 






t 


Item 1 (TEXTC form) 


• 






Item 2 (TEXTC form) 


f 







where 



Item type = for END, carrioge return. 

1 for NAME, a file name, e.g., (EXAMPLE.D3). 

2 for SEQ, a sequence number, e.g., 1.23. 

3 for SEQ2, two sequence numt)ers or two sequence numbers separated by a dash, 

e.g., 1.2-2. 

4 for INTG, a numeric string whose value is less than 1000; e.g., 123. 

5 for STRG, a character string enclosed in slashes; e.g., /BUILD/, 

6 for ALPH, a character string not enclosed !n slashes; e.g., BUILD. 

7 for COM, comma. 

8 for SCOL, semicolon. 

9 for LPAR, left parenthesis. 

10 for RPAR, right parenthesis. 

11 for PERIOD. 

12 for BLANK. 

Text pointer is word address of TEXTC form in entry; e.g., for item 1, Text pointer is n. 

2. CDT+100=CDTADR, address of current command in CDT. 

3. PARAMPSN = next available slot in CDT. ^ 

4. PRMBUFSZ = number of words in PARAMBUF to be added. 

5. CHARPSN = number of next character to scan. 

6. End-of-CDT Marker = X' 00000 100'. 

Figure 72. Command Description Table (CDT) 
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f ENTER J 



MASTER- 
PARSER 



Read Command from TTY or scratch fl le 




no 



Print En-or 
Message 



Go to Proper Routine to Build CDT 



I 



PARSE: routine 




no 



Print Error 
Message 



Build CDT 



MASTER- 
EXECUTIVE 



T 



Analyze CDT and go to 
Proper Routine 



F:, R:, I: routine 



Call workhorse subroutines to 
Execute Commands in CDT 




END 



Exit from 
EDIT 



All Other 



Figure 73. Overall Flow Diagram of EDIT 
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Table 9. Command Number Table 






Command 
Number 


Command 


CDT Builder 


CDT Executor 




1 


BP 


PARSE :BP 


F:BLANK$PRESERV 




2 


BUILD or 


PARSE :BUILD 


F:BUILD 


F 
1 




SAVE 


PARSE :SAVE 


F:SAVE 


1 

L 


3 


COPY 


PARSE :COPY 


FKIOPY 


E 


4 


DELETE 


PARSE:DELETE 


F:DELETE 


C 

o 


5 


EDIT 


PARSE :EDIT 


F:EDIT 


M 


6 


END 


PARSE :END 


F:END 


M 
A 


8 


CRor 


PARSE :CR 


fk:r 


N 




SEQ 


PARSE :SEQ 


F:SEQ 


D 

s 


9 


MERGE 


PARSE Jv\ERGE 


F:MERGE 




10 


CM 


PARSE. -CM 


R.-COMMENTARY 




11 


DE 


PARSE :DE 


R:DELETE 




12 


FD 


PARSE :FD 


R:FIND$DELETE 




13 


n 


PARSE :FT 


R:FIND$TYPE 


R 


14 


IN 


PARSE :IN 


R:INSERT 


E 


15 


IS 


PARSE :IS 


R:INSERT$SUP$SEG 


C 

O 


16 


MD 


PARSE :MD 


R:MOVE$DELETE 


R 


17 


MK 


PARSE Jv\K 


RJv^OVE$KEEP 


D 


18 


RN 


PARSE:RN 


Rd^ENUMBER 


C 


19 


SS 


PARSE :SS 


R:SET$STEP 



M 


20 


ST 


PARSE :ST 


R:SET$STEP$TYPE 


M 


21 


TS 


PARSE. TS 


R:TYPE$5UP$SEQ 


A 
N 


22 


TY 


PARSE :TY 


R:TYPE 


D 


23 


TC 


PARSE :TC 


R:TYPE$COM PRESSED 


S 


24 


FS 


PARSE :FS 


R:F1ND$SEQUENCE 




25 


GO 


PARSE :GO 


R:GO 




26 


RET 


PARSE :RET 


R:RET 




30 


SE 


PARSE :SE 


I:SET 




31 


D 




I:DELETE 




32 


E 




I:OVERWR$EXTEND 


I C 


33 


F 


PARSE:I<:MND$STRG 


I:FOLLOW$BY 


N O 
T M 


34 
35 
36 


L 

O 

P 


or 
PARSE :I:CMND$INTG 


I:SHIFT$LEFT 
hOVERWRITE "* 
I:PRECEDE$BY 


R M 
A A 
L N 
I D 


37 


R 




I:SHIFT$RIGHT 


N S 
E 


38 


S 




I:SUBSTITUTE 




39 


JU 


PARSE :JU 


IJUMP 





249 



Table 9. Command Number Table (conK ) 



Command 
Number 


Command 


CDT Builder 


CDT Executor 


40 
41 
42 
43 


NO 
RF 
TS 
TY 


PARSE:NO 
PARSE :RF 
PARSE :TS 
PARSE :TY 


I:NO$CHANGE 
I:REVERSE$BPFLAG 
I:TYPE$SUP$SEQ 
I:TYPE 


44 
45 
46 
47 
48 


A 

Y 

N 

DE 

C 


PARSE :I:CMND$STRG 

or 
PARSE:I:CMND$INTG 

PARSE:C 


IiMIGN 

I:YES$CONTINUE 
I:NO$CONTINUE 
I:DEL$REC 

ik:opy$rec 



Module Analysis 

The routine and subroutine descriptions which follow are organized such that the initialization routine BEGINEDITOR 
appears first followed by MASTERPARSER and its associated PARSE: subroutines in alphobetical order, MASTER- 
EXECUTIVE and its associated F:, R:, and I: command executor routines in alphabetical order, and lastly the gen- 
eral subroutines in alphabetical order. 



In the descriptions which follow register notations have the following meaning: 

Symbol is 

T2 

P3 

R1 

R2 

F:LNK 

R:LNK 

I:LNK 



Symbol 


is 


Register 


X3 




1 


X4 




2 


XI 




3 


X2 




4 


PI 




5 


P2 




6 


LNK 




7 


Tl 




8 


BEGINEDITOR 






1 . Purpose 






Performs 


initial 


ization of EDIT. 



Register 
9 
10 
11 
12 
13 
13 
13 



2. Entry: 



This is the routine whose address is entered in the TCB for EDIT causing it to be the beginning point of 
execution when control Is passed to the EDIT subsystem by Task Initiation. 



3. Exit: 

There is no formal exit; it merely branches to next routine, MASTERPARSER 1, 
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MASTERPARSERl 

I , Purpose : 



Serves as fhe driver for the command text scanning. It performs initiolizotlon of flogs, the CDT, and 
TSTACK. (Alternate entry MASTERPAR5ER is used to restart after certain types of error. ) 

Entry: 

Initially, execution branches to MASTERPARSERl from BEGINEDITOR; thereafter it is entered via 
B MASTERPARSERl or B MASTERPARSER, 



Exit: 

If item type (Figure 71) of the first string found is one of the four shown below, the branch isto the indicated 
CDT builder routine. 



Item Type 


CDT Builder Routine 


INTO 
STRG 
CR 
ALPH 


PARSE:I:CMND$INTG 
PARSE:I:CMND$STRG 
CMND$CONT 
PARSE: (routine) 



4. Operation: 

After initialization, one or two asterisks are typed for prompt characters depending on whether EDIT is in 
step mode. READTELETYPE2 is used to read one line of commands. MASTERPARSER increments CDTADR 
and the count of CDT entries and resets PARAMPSN, GETNEXTPARAM is used to test command type for 
one of the following: INTG, STRG, CR and ALPH. If it is none of them, the error message "C1:ILGL 
SYNTAX" is typed and branch is made to MASTERPARSER. If the command type is ALPH but the command 
is not one of those shown in Table 9, the message 'C1:UNKN CMND' is typed and branch is made to 
MASTERPARSER, 



The flow of MASTERPARSER is given in Figure 74. 



PARSE :CM 



1 . Purpose : 

Adds an entry to the CDT for CM n, c. "* 

2. Entry: 

B PARSE CM 

This subroutine Is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 
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Figure 74. Flow Diagram of MASTERPARSER 
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Figure 74. Flow Diagram of MASTERPARSER (cent. ) 
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3, Exit: 

Normal return is to MASTER EXECUTIVE upon finding a carriage return. Error exits are: 

to ILGL$SEQ2 on finding a second sequence number; 

to ILGL$SEMICOLON on finding a '";"; 

to MASTERPARSER vie TYPEPERR on finding any other character in which case it prints one of the 
following: 

'-Pn:NOT SEQ '', 

■-Pn:ILGL SYNTAX', 

■-PnzNOT COL *', 

or 

■-Pn:PARAM MISSING', 

4. Operation: 

This subroutine uses NEWCDTENTRY to build new CDT entry, CHECK 1CDTENTRY to make sure "CM" is 
first command, and GETNEXT PARAM to SCAN command text. 

PARSE:DE, PARSE:SE 

1. Purpose: 

Adds an entry to the CDT for DE n[-m] or SE n [-ni][,c[,d]], 

2. Entry: 

B PARSE:DE for DE 
B PARSE:SE for SE 
This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

Normal return destination (MASTEREXECUTIVE) is given in the calling sequence to NXTPRM and will be 
used upon recognition of a carriage return in the input command buffer. 

Alternate normal return is to RESUME$PARSING if semicolon is encountered after the SE command. 

Error exits; to ILGL$SEMICOLON if semicolon found; after DE command: to MASTERPARSER via TYPE- 
PERR after printing one of the following: 

'-Pn:NOT SEQ '', 

'-Pn:ILGL SYNTAX', 

or 

'-Pn:NOT COL ''. 
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4. Operation: 

This subroutine uses: 

NEWCDTENTRY to establish an entry in the CDT for this command; 

GETNEXTPARAM to scan the input text; 

ADJINT to format sequence number as integer * 1000; 

REPSEQ to duplicate sequence number if only one given; 

CHECK ICDTENTRY to make sure this is the only entry in the CDT; 

and ADDCDTPARAM to add to the CDT. 



PARSE;EDIT 

1 . Purpose : 

Adds an entry to the CDT for EDIT fid. 

2. Entry: 

B PARSE:EDIT 

This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

Normal return is to MASTEREXECUTIVE upon finding a carriage return. Error returns: 
to ILGL$SEMICOLON on finding a ";"; 
to MASTERPARSER via TYPEPERR on finding any other character where it prints '-Pn:ILGL SYNTAX". 

4. Operation: 

This subroutine uses: 

NEWCDTENTT^Y to build new CDT entry; 

CHECK ICDTENTRY to ensure that EDIT is first command in CDT; 

GETFILEID; 

ADDCDTPARAM to add entry to CDT; 

and GETNEXTPARAM to scan for carriage return. 

The scan may be extended to obtain an additional file name and a sequence number and increment. 

PARSE:END 



1. Purpose: 

Adds an entry to the CDT for END. 
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2. Entry: 

6 PARSE :END 

This subroutine is invoked via the CBRCHTBL of MA5TERPARSER after a command has been identified. 

3. Exit: 

Normal return is to MASTEREXECUTIVE on finding a carriage return. Error returns are: 
to ILGL$SEMICOLON on finding a semi-colon (;); 
to finding KAASTER PARSER via TYPEPERR 
on finding another character where it prints '-Cn:ILGL SYNTAX'. 

4. Operation: 

This subroutine uses: 

NEWCDTENTRY to build a new CDT entry; 

CHECK 1CDENTRY to ensure END is first command; 

ADDCDTPARAM to put the "NS" keyword in the CDT; 

and get GETNEXTPARAM to scan for carriage return or the "NS" keyword. 



PARSE:NO 



1. Purpose: 

Adds an entry to the CDT for END or NO. 

2. Entry: 

B PARSE:NO 

This subroutine is invoked via the CBRCMTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

Normal return is to MASTEREXECUTIVE on finding a carriage return. Error returns are: 
to ILGL$SEMICOLON on finding a semi-colon 0); 
to MASTERPARSER via TYPEPERR on finding another character where it prints '-Cn:lLGL SYNTAX'. 

4. Operation: 

This subroutine uses: 

NEWCDTENTRY to build a new CDT entry: 

CHECK ICDTENTRY to make sure NO is first command; 

ond GETNEXTPARAM to scan for carriage return. 
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PARSE.-FD, PARSE;FS and PARSE:FT 
1. Purpose: 

Adds an entry to the CDT for 



FD] 

FS n [-m],/STRG/[,c[,d]]. 

ftI 



2. Entry: 

B PARSE:FD 
B PARSE:FS 
B PARSE :FT 
This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified, 

3. Exit: 

Normal return is to MASTEREXECUTIVE upon recognition of a carriage return in the input command buffer. 
Error exits are: to ILGL$SEMICOLON on finding o semi-colon; 

to MASTERPARSER via TYPEPERR after printing one of the following: 

'-Pn:NOT SEQ '', 

'-Pn:ILGL SYNTAX', 

'-PnrNOT STRG', 

■-Pn:NOTCOL *', 

or 

'-Pn:PARAM MISSING'. 

4. Operation: 

The following subroutines are used: 

NEWCOTENTRY to build a new CDT entry; 

CHECK ICDTENTRY to ensure that there is only one CDT entry; 

ADJINT to format sequence number as an integer * 1000; 

REPSEQ to duplicate sequence number If only one given; 

ADDCDTPARAM to add to the CDT; 

GETNEXTPARAM to scan the input text; 

and TYPEPERR to type error message if second parameter is missing. 

PARSE:I:CMND$STRG, PARSE:I:CMND$INTG 
1. Purpose: 

IVocess intraline commands. 
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2, Enfry: 



This subrouHne is used by GETNEXTPARAM to process an infraline command of the form STRG (a character 
string enclosed in slashes) or INTG (a numeric string whose value is less than 1000). The entry point ad- 
dresses PARSE :I:CMND$STRG for a character string and PARSE:I:CMND$INTG for a numeric string are 
passed to GETNEXTPARAM in its calling sequence as the addresses to be b>ranched to on finding such a 
recognizable string. 



3. Exit: 

Branch is mode to: 

MASTERPARSER 

MASTERPARSER 

MASTERPARSER 

MASTERPARSER 

RESUMESPARSING 
MASTEREXECUTIVE 



On finding: 

No match 

Cmnds not in order 

Order improper 

String not of form/STl/ 
where expected 

Semi -colon 

Carriage return 



Prints message: 
'-CnrUNKN CMND' 
'-Cn:ILGL SYNTAX' 
'-Cn:NOTCNT' 
'-Cn:NOT STRG' 



4. Operation: 

This subroutine colls NEWCDTENTRY to build new CDT entry (character or integer). It calls 
ADDCDTPARAM to add the new parameter ( character or integer). It searches table of intraline commands 
to find a match; if found, it processes appropriate command following the string. It uses GETNEXTPARAM 
for commands that require further scanning. 

The flow of PARSE:I, CMND$STRG, and PARSE:ICMND$INTG is given in Figure 76. 

PARSE:IN, PARSErlS 

1. Purpose: 

Adds an entry to the CDT for IN n[,i] or IS n[,i]. 

2. Entry: 

B PARSE:IN 
B PARSE:IS 
This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

B GET$SEQ$INCR to process the n[,i]portion of the commond. 

4. Operation: 

This subroutine uses NEWCDTENTRY to build new CDT entry and CHECKICDTENTRY to make sure IN 
or IS is first command. 



258 



f Entry >^ 

\MRSE:I:CMND$STRG 



NEWCDTENTRY 



Build new 
CDT entry 
CMND=0 



' ADDCDTPARAM 



Put string 
in CDT 



fiflMXTPARAM 



Get field 
from command 




TYPEPERR 



'-CnrlLGL 
SYNTAX' 



(^ 



STERPARSER 



>^ 



TYPECERR 



'-Cn:UNKN 
CMND' 



Pg. 1 



ICS50 




r Entry ^ 

PARSE :I:CMND$INTG 



NEWCDTENTRY 



Build new 
CDT entry 
CMND = 



GETNEXTPARAM 



Get field 

from 
command 



\ ADDCDT PARAM 



Put INTG 
in CDT 



TYPEPERR 



'-CnrlLGL 
SYNTAX' 




(MASTERPARSER ") 



ICSIO 




- NEWCDTENTRY 



Build new 
CDT entry 
CMND=0 



Search for 
command 
in table 




X 



Initialize 
PARAMBUF and 
PRMBUFS2 



ADDCDTPARAM 



Put INTG 
in CDT 



ICS20 



Put CMND 
type In 
CDT entry 




ADDCDTPARAM 



Put String 
in CDT 



' GETNEXTPARAM 



Get field 

from 
command 




Pg. 2 



Figure 75. Flow Diagram of PARSEjItCMND$STRG and PARSE -.IsCMNDSINTG 
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PARSE:MD, PARSE:MK 

1. Purpose: 

Adds an entry to the CDT for MD n [-m], k[-p]Qi] or MK n [-m], l<[-p][,i]- , 

2. Entry: 

B PARSE:MD 
B PARSE:MK 
This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

Normal return is B GET$INCREMENT. Error exit is to MASTERPARSER via TYPEPERR after printing one 
of the following: 

'-Pn:NOT SEQ '". 

'-Pn:ILGL SYNTAX'. 

4. Operation : 

This subroutine uses: 

NEWCDTENTRY to add a new entry to the CDT; 

CHECK 1CDTENTRY to make sure this is the first CDT entry; 

ADJINT to format sequence number as an integer * 1000; ^^ 

REPSEQ to duplicate sequence number if only one given; 

ADDCDTPARAM to add to the CDT; 

and GETNEXTPARAM to scon the input text. 

PARSE. -RF 

1. Purpose: 

Adds an entry to the CDT for RF. 

2. Entry: 

B PARSErRF 

This subroutine !s invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: "* 

Normal return is to MASTEREXECUTIVE upon finding a carriage return or to RESUME$PARSING on find- 
ing a ";". Error return is to MASTERPARSER via TYPEPERR on finding another character. 

4. Operation: "-' 
It uses NEWCDTENTRY to build a new CDT entry and GETNEXTPARAM to scan command text. 
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PARSE:RN 

1 . Purpose : 

Adds an entry fo the CDT for the command RN, renumber, 

2. Entry: 

B PARSE:RN 

This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 

3. Exit: 

Normal return Is to MASTEREXECUTIVE upon recognition of a carriage return in the input command buffer. 
Error exit: to ILGL$SEMICOLON on finding a semi-colon; 

to MASTERPARSER via TYPEPERR after printing one of the following: 

'-Pn:NOT SEQ *', 

'-Pn:ILGL SYNTAX", 

or 

'-Pn:PARAM MISSING'. 

4. Operation: 

This subroutine uses: 

NEWCDTENTRY to build a new CDT entry; 

CHECKICDTENTRY to make sure RN is the first command; 

ADDCDTPARAM to add to the CDT; 

GETNEXTPARAM to scan the input text; 

ADJINT to format sequence number as integer * 1000; and 

TYPEPERR to type error message. 

PARSE:SS, PARSE:ST and PARSE:JU 

1. Purpose: 

Adds an entry to the CDT for SS n [,c[,d]]or ST n[,c[,d]]or JU n. 

2. Entry: 

B PARSE:SS 
B PARSE:ST 
B PARSEJU 

This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 
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3. Exit: 

Normal return is to MASTER EXECUTIVE on finding a carriage return for JU or to GET$C0L'PAIR for 
SS or ST. Error returns are: ' 

to ILGL$SEQ2 on finding a second sequence number; 

to ILGLSSEMICOLON on finding o semi-colon; 

to MASTERPARSER via TYPEPERR after printing: 

'-Pn:NOT SEQ *' 

or 

'-Pn:ILGL SYNTAX'. 

4. Operation: 

This subroutine uses: 

NEWCDTENTRY to build a new CDT entry; 

GETNEXTPARAM to scan the input text; 

ADJINT to format sequence number as integer * 1000; 

CHECKICDTENTRY to make sure this is the only entry in the CDT (if not JU); and 

ADDCDTPARAM to add to the CDT. 

PARSE:TC, PARSE:TS and PARSE:TY 

1. Purpose: 

Adds an entry to the CDT for TS [n-m][,c[,d]], TY[n-m][,c[,d]], or TC n[-m][,c[,d]]. 

2. Entry: 

B PARSE:TC 
B PARSE :T5 
B PARSE:TY 

This subroutine is invoked via the CBRCHTBL of MASTERPARSER after a command has been identified. 



Exit: 

For TC: a record number must be specified; normal exit is a B GET$C0L'$PAIR; error exit is to 
MASTERPARSER via TYPEPERR on finding no record number in which case it prints •-Pn:NOT SEQ*'. 



For TS ond TY: normal exit is either to MASTEREXECUTIVE on finding a carriage return or to 
GET$C0L'$PAIR to process record range; error exit is to MASTERPARSER via TYPEPERR on finding illegal 
character, in which case it prints '-Cn:ILGL SYNTAX'. 



264 



{ 



4. Operation : 

This subroutine uses: 

NEWCDTENTRY to build new CDT entry; 

CHECKICDTENTRY to ensure that TS, TY or TC is first command to be added to CDT; 

ADJINT to form sequence number as integer * 1000; 

REPSEQ to repeat "n" as "m" if only "n" given; and 

ADDCDTPARAM to add to CDT. 

MASTEREXECUTIVE Routine 

1 . Purpose : 

This is the master routine to execute commands in the CDT. It resets CDTADR to point to start of 
CDT, gets command from start of CDT, checks whether the proper mode is being used for this com- 
mand, and calls it If so. 

2. Entry: 

B MASTEREXECUTIVE 

This routine's address is given to NXTPRM as the branch location following identification of a carriage 
return in the Input command buffer. 

3. Exit: 

B MASTERPARSER after finding erroneous data in CDT or after properly executing all commands in CDT. 

4. Operation: 

MASTEREXECUTIVE performs the following functions: restores last default value of blank perservation 
flag; sets ALLOK flag to show that "ALL" mode is potentially legal; if a file command, ensures that 
input file is present and keyed; if intra-record command, ensures that set mode is in effect; executes 
command from CDT via F: , R: , or I: routines; if all-flag set and command is intra-record, repeats 
for all occurrences. This routine. In effect, controls execution of the set and step commands in addi- 
tion to serving as driver for CDT command execution. 

The flow for MASTEREXECUTIVE is given in Figure 76. 

F:BLANK$PRESERV 

1. Purpose: 

Sets SUBFLAG for blank preservation mode. 

■A 

2. Entry: 

F:LNK is the linkage register. This subroutine is entered via BAL, F:LNK F:BLANK$PRESERV. 



A procedure that generates a calling sequence to GETNEXTPARAM. 
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3. Exit is via B 'FrLNK which resolh ?n return to AAASTEREXECUTIVE. 

4. Operation: 

If mode neither on or off it types "-NOT ON/OFF"; otherwise it sets SUBFLAG to current mode. 



F:EDIT 



1. Purpose: 

Performs initialization in preparation for editing a file, 

2. Entry: 

F:LNiK is the linkage register. This subroutine is entered via BAL, F:LNK FrEDIT. 

3. Exit: 

B *F:LNK, which results in return to MASTEREXECUTIVE. 

4. Operotion: 

If an EDIT command is already in effect, the scratch file is closed after o SAVE is performed on the subject 
file if it exists. If only o scratch file is specified for the new EDIT operation, it is reopened (on the as- 
sumption that it has been built previously as an EDIT scratch file) using routine OPENSCR. If a subject 
file is specified, the method of indexing (specified key start and step, default key start and step, or key 
contained in each subject file record) is determined, and routine BUILDSCR is called to build the scratch 
file from the records in the subject file. 

The flow for F:EDIT is given in Figure 77. 



F:END 



1. Purpose: 

Closes scratch file if open and causes return to the monitor. 

2. Entry: 

F:LNK is the linkage register. This subroutine is entered via BAL, F:LNK F:END. 

3. Exit: 

It returns to the monitor via CAL3, 6 0. 

4. Operation : 

If an EDIT command is not yet in effect, F:END does an EXIT service call. If an EDIT command is in effect 
and the NS option of END was not specified, F:END calls SAVESCR to save the subject file. It then closes 
the scratch file and performs the EXIT call. If NS was specified, the save operation is omitted. 

The flow for F:END is given in Figure 78. 
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R:COMMENTARY 

1 . Purpose : 

Executes the insert commentary command, CM. 

2. Entry: 

R:LNK is the linkage register. This subroutine is entered via BAL, R:LNK RrCOMMENTARY, from 
MASTEREXECUTIVE. 

3. Exit: 

B MASTERPARSER 

4. Operation: 

If column number exceeds 140, it prints '-P2:COL ERROR" via TYPEMSG and exits. It uses R^ADRANDOM 
to read specified record: if not found, it prints '-Pn:NO SUCH REC via TYPEMSG and exits. 

It uses: TYPESEQ to type sequence number prompt and READTELETYPE2 to read commentary (if CR, it exits). 

It moves commentary into record: if extends beyond 140 characters in all it types ' — OVERFLOW via 
TYPEMSG and goes on to next record; commentary is blank — filled to the right. 

It uses: SETEOD to insert carriage return if CR ON; 

WRITERANDOM to write the record; and READSEQUEN to read next record. 
It types "—EOF HIT' if EOF found and exits. 

If repeats sequence number prompt and continues as previously described until a record having only CR is 
found or until EOF is encountered. 



F:SAVE 

1 . Purpose : 

Executes the SAVE command. 
See Figure 79. 

R:DELETE 

1. Purpose: 

Performs a request to delete records. ^ 

2. Entry: 

R:LNK is the linkage register. 

Note: F:LNK and R:LNK ore synonymous. This subroutine is entered via BAL, R:LNK R:DELETE in 
MASTEREXECUTIVE. 
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3. Exih 

B *R:LNK 

4. Operation: 

It- sets: PI = first sequence number and P2 = last sequence number. 

It uses DELETE to perform deletion of records specified by the range. If nothing is deleted ituses TYPEMSG 
to type '-NOTHING TO DE". 

R:FIND$SEQUENCE, R:FIND$DELETE and R:FIND$TYPE 

1. Purpose: 

Processes the record commands FS, FD, and FT, 

2. Entry: 

R:LNK is the linkage register. This subroutine is entered via BAL, R:LNK 

R:FIND$SEQUENCE' 

R:FIND$DELETE 

R:FIND$TYPE 
from MASTEREXECUTIVE. 

3. Exit: 
B *R:LNK 

4. Operation: 

It sets: FIRSTSET = first sequence number in CDT and LASTSET = second sequence number in CDT. 

It uses PROCESSCOL'PAIR to process the column number parameters and READNXTRANDOM to read first 
sequence number specified or next highest. 

It uses: FINDMATCH to scan the record for the specified string and READSEQUEN to read further if string 
not in record read via READNXTRANDOM. 

For: FS it uses TYPES EQ to type sequence number of record; 

FT it uses SETEOD to insert © if CR ON; 

FD it uses DELETERECORD to delete the record. 

It repeats the scan for the desired record range. -^ 

It wraps up: for all three command types TYPEMSG is used to type ' — NONE' if no matches found for FD 
TYPEMSG is used to type '--XXX RECS DLTED'. 

If EOF is reached during search, '--EOF HIT' is typed via TYPEMSG. 

The flow of R:FIND$SEQUENCE, R:FIND$DELETE, and R:FIND$TYPE is given in Figure 80. 
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Figure 80. Flow Diagram of R:FIND$SEQUENCE, R:FIND$DELETE, and R:FIND$TYPE 
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Figure 80. Flow Diagram of R:FIND$SEQUENCE, R:FIND$DELETE, and R:FIND$TYPE (cont.) 
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R:INSERT$SUP$SEQ, R:INSERT 

1. Purpose: 

Inserts records with or without sequence number prompting. 

2. Entry: 

R:LNK is the linkage register. This subroutine is entered via BAL,R:LNK R:INSERT (Sets X4=0) or 
BAL,R:LNK R:INSERT$SUP$SEQ (Sets X4=2) in MASTEREXECUTIVE. 

3. Exit: 

B *R:LNK 

4. Operation: 

The CDT is examined to pick up starting sequence number and. If present, increment it. 

The subroutine resets DFLTINCR and new default increment, A record is read using READNXTRANDOM. 
If the record read is the sequence number requested, the next highest record is read via READSEQUEN. If 
IN command, TYPESEQ is used to prompt with sequence number. The record to be inserted is read via 
READTELETYPE. If none existed, normal exit occurs. The record terminator is set to blank. 

RECSIZE is set. If record size exceeds 140, '—OVERFLOW is printed via TYPEMSG. SETEOD is used 
to insert carrloge return if CR ON. 

WRITERANDOM is used to write the new card image. The current sequence number is incremented. If 
more records will fit in the range, process is repeated starting with sequence number prompting above. 
Otherwise, the Teletype bell is rung twice via TYPEMSG and normal exit is taken. 

If a record to be inserted has sequence number greater than 9999.999, the message '-MAX, SEQ. NO. 
EXCEEDED' is printed and command processing is stopped. 

R:MOVE$DELETE, R:MOVE$KEEP 

1. Purpose: 

Processes the commands Move and Delete (MD) and Move and Keep (MK). 

2. Entry: 

R:LNK is the linkage register. This subroutine is entered via BAL,R:LNK R:MOVE$DELETE or BAL,R:LNK 
R:MOVE$KEEP from MASTEREXECUTIVE or via B MVE58, B MVE56, or B MVE40 from F:MERGE. 

3. Exit: 

B *R:LNK 

4. Operation : ^ 
This subroutine examines the CDT to get parameters from command form 

(j;^j n[-m],k[-p][,i]. 
It sets DFLTINCR = i, or if i not specified = the most recent increment used (1 if none). 
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It checks both ranges; errors are: '--EOF HIT' and '-RNG OVERLAP' typed via TYPEMSG. (Ranges must 
be mutually exclusive). 

It uses READNXTRANDOM to ottempt to read record n: (at MVE58)if not found it types '-NOTHING to 
MOVE' via TYPEMSG and exits. 

It uses DELETE to delete all records in range k-p. If it v/os possible to find all of them, it reads ahead 
using READSEQUEN to mark sequence number of next record. 

If record n cannot be found, it types ' — EOF HIT'. At MVE56 if record m hit or passed: and if m>p, it 
types '—CUTOFF AT XXX.X (XX.XX)' and if MD, it deletes records n-m, and then exits. 

It reads records from range n-m one by one and writes them with sequence number (key) k-p. At MVE40 
normal termirration yields message ' — DONE AT XX.XX' and for MD, source records in range n-m are 
deleted before exiting. 

The flow of R:MOVE$DELETE and R:MOVE$KEEP is given in Figure 81. 



R;RENUMBER 

1 . Purpose : 

Reads old records having sequence numbers specified and writes them with new sequence numbers, de- 
leteing old records where the sequence number already existed. 

2. Entry: 

R:LNK is the linkage register. This subroutine is entered via BAL,R:LNK R:RENUMBER in 
MASTEREXECUTIVE. 

3. Exit: 

B *R:LNK 

4. Operation: 

It sets PI = old sequence number; Tl = new sequence number 

It uses: READRANDOM to read old record; WRITENEWRANDOM to write new record with new sequence 
number; DELETERECORD to delete old record should sequence number already exist; and TYPEMSG to type 
'-Pl:NO SUCH REC if old record does not exist and '-P2:REC EXISTS' if new record already exists. 

R:SET$STEP. R:SET$STEP$TYPE 

1. Purpose: 

Executes the SS (Set and Step) or ST (Set, Step and Type) command. 

2. Entry: "* 

R:LNK is the linkage register. This subroutine is entered via BAL, R:LNK R:SET$STEP or BAL, R:LNK 
R:SET$STEP$TYPE in MASTEREXECUTIVE, 

Auxiliary entry points: FINISH$STEP$LOOP, which is the entry point from I:JUMP, and STEP$LOOP, 
which is the entry point from MASTEREXECUTIVE if in a step loop. 
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Figure 81 . Flow Diagram of R:MOVE$DELETE and RJ^OVE$KEEP 
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3. Exit: 

B MASTERPARSER in preparation for accepting intra-record commands to update the current record. 

4. Operation: 

This subroutine sets STEPFLAG = 1 for SS and SETFLAG = 1 for ST. 

This CDT is examined to pick up record number and, if present, column number(s). FIRSTSET is set equal 
to the first sequence number. The column number parameters are processed via PROCESSCOL'PAIR. 

An attempt is made to read the record via READRANDOM. At FINISH$STEP$LOOP the following tests are 
performed: If the record existed; SETEOD is used to insert carriage return if CR ON; record is typed via 
TYPECARD for ST, or only sequence number is typed via TYPESEQ for SS; and normal exit is made to 
MASTERPARSER. 

If it did not exist: it types '-Pn:NO SUCH REC via TYPEMSG. It sets STEPFLAG and SETFLAG to zero 
and exits to MASTEREXECUTIVE. 

At STEP$LOOP it writes record via WRITERANDOM (unless command was NO); it exists if null command; 
otherwise it reads the next record via READSEQUEN, It exits if EOF was hit after typing '—EOF HIT' 
via TYPEMSG; if not hit, it saves new sequence number in FIRSTSET and proceeds with tests at 
FINISH$STEP$LOOP. 

R:TYPE$COMPRESSED, R:TYPE and R:TYPE$SUP$SEQ 
I. Purpose: 

Executes commands: TC (type records compressed), TY(type records), TS (type, suppressing sequence number). 



Command forms are: 



TC [ n [-m][,c][,d] ItvI ^°'^ intra-record mode. 



2. Entry: 

R:LNK is the linkage register. This subroutine is entered via 

BAL,R:LNK R:TYPE$COMPRESSED, 

BAL,R:LNK R:TYPE, 

BAL,R:LNK R:TYPE$SUP$SEQ in MASTEREXECUTIVE. 

3. Exit: 

B *R:LNK 



4. Operation: 

This subroutine examinestheCDT toflndsequence numbers, Ituses PROCESSCOL*PAJRtoprepareforprocess- 
ing columns c-d andREADNXTRANDOMfor reading record n. It reodsand types records in the range using: 

SETEOD to insert carriage return if CR ON, TYPECARD to type record, and READSEQUEN to read 
next record. If EOF was hit, it types '—EOD HIT' and exits. 
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The technique for handling typing of column bounds and the compressing of blanks is at TYP40 as a 
subroutine within this routine. Using FRSTCLMN, LASTCLMN (set by PROCESSCOL'PAIR) it shifts the 
image in CAROIMG to compress blanks if TC. 



I:DELETE 

1. Purpose: 

Executes the intraline Delete string command D. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK hDELETE in MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4. Operation: 

This subroutine uses: FINDCOLUMN to find column corresponding to the first parameter, SHIFTLEFT to 
delete string, ADJUSTALLFLAG to set column 1 at which to resume matching, and SETOD to reset the 
EOD morker. 

I;FOLLOW$BY 

1. Purpose: 

Executes the intraline command F (follow X by Y). 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK I:FOLLOW$BY in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4. Operation: 

This subroutine calls: FINDCOLUMN to find column corresponding to the first parameter, SHIFTRIGHT to 
make room for second string, MOVESTRING to move string into hole, ADJUSTALLFLAG to set ALL- 
FLAG = column at which to resume matching (if ALLFLAG on), and SETEOD to reset EOD marker. 



1:JUMP 



1 . Purpose : 

Executes the Jump command, JU (format JU n). 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK hJUMP in MASTEREXECUTIVE. 



285 



3. Exit: 

Normal exit is B FINISH$STEP$LOOP. Error exit is B •I:LNK. 

4. C^eration: 

If user is not in step mode, this subroutine uses TYPECERR to type and exits to AAASTEREXECUTIVE. It 
uses WRITERANDOM to write record. It examines CDT to get record number n and uses READRANDOM 
to read it. If record not found, it uses TYPECERR to type '-Cn:NO SUCH REC, uses READRANDOM to 
restore old record to the buffer, and exits to MASTEREXECUTIVE. 

If record found, it saves sequence number in FIRSTSET and exits to FINISH$STEP$LOOP. 

I:NO$CHANGE 

1. Purpose: 

Sets NOCHGFLG flag in response to the NO command while in step mode. 

2. Entry: 

I:LNK is the linkage register. This subroutine entered via BAL, I:LNK I:NO$CHANGE in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4. Operation: 

If user !s not in step mode this subroutine types '-CnrCMND ILGL HERE' vio TYPECERR and returns. 
Otherwise, it sets NOCHGFLG=l and returns. 

I: OVERWRITE 

1. Purpose: 

Executes the intraline command O, overwrite X by Y. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK IrOVERWRITE in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4. Operation: 

This subroutine uses: FINDCOLUMN to find column corresponding to the first parameter, MOVESTRING to 
overwrite string X with string Y, ADJUSTALLFLAG to set column number at which to resume matching, and 
SETEOD to set the EOD marker. 
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ItOVERWRSEXTEND 
1. Purpose: 

Executes the overwrite and extend blanks command, E. This command has two forms: 
[jJ/$tring./E/string2/ or kE/string-/. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK I:OVERWR$EXTEND in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4, Operation: 

This subroutine sets ALLOK ^ to show "ALL" is not valid at this point; uses FINDCOLUMN to find col- 
umn which corresponds to the first parameter; examines CDT to find address of string2; uses MOVESTRING 
to place new string in record; updates PI to point to the column after the last new charocter; stores blanks 
in remainder of record; uses SETEOD to insert carriage return if CR ON; and exits to KAASTER EXECUTIVE. 

I:PRECEDE$BY 

1. Purpose: 

Executes the intraline string command P, precede X by Y. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK I:PRECEDE$BY in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

4. Operation: 

This subroutine uses: FINDCOLUMN to find column corresponding to the first parameters, SHIFTRIGHT to 
make room for second string, MOVESTRING to move string Y into hold, ADJUSTALLFLAG to set column 
number at which to resume matching, and SETEOD to reset the EOD marker. 

I:REVERSE$BPFLAG 

1 . Purpose : ^ 
Execute the RF command. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via RAL,I:LNK I:REVERSE$BPFLAG in 
MASTEREXECUTIVE, 
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3. Exit: 

B *I:LNK 

4, OperaHon: 

This subrouHne reverses BPFi_AG and returns. 



I -.SET 

1. Purpose: 

Executes the ir^traline command SE. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL,I:LNK I:SET in MASTEREXECUTIVE. Its 
auxiliary entry is SET$LOOP from MASTEREXECUTIVE if in SET loop. 

3. Exit: 

B *I:LNK is normal exit. If entered via 5ET$LOOP, normal exit is B RESTART$EXECUTIVE. Error exit 
is B MASTERPARSER. 

4. Operation: 

It sets SETFLAG = 1. The CDT is examined to pick up first and last sequence numbers. It stores first 
sequence number in FIRSTSET, and last one in LASTSET. If range covers more than one record it 
sets ERRORCNT = 1, 

PROCESSCOL'PAIR is used to process the column numbers. SETADR is initialized to address in CDT which 
followsthe SE command. An attempt is madeto read the record via READRANDOM: ifnot found, '-Pn:NO 
SUCH REC is typed via TYPEMSG, SETFLAG is set to zero, and exit is made to ^AASTERPARS£R; if found, 
SETEOD is used to insert carriage return if CR ON, and exit is to ^AASTEREXECUTIVE via B *I:LNK. 

If entered at SET$LOOP and the last record has been processed, it uses WRITERANDOM to write it, sets 
SETFLAG = 1 so that loop will be restarted if another I:CMND follows and exits to ^^ASTERPARSER. If it 
hos not, it uses WRITERANDOM to write current record and READSEQUEN to read next one: if sequence 
is past range, it sets SETFLAG - 1 and exits; if not past range it puts new sequence number in FIRSTSET, 
puts contents of SETADR in CDTADR to start I:CMND loop at beginning, uses SETEOD to insert carriage 
return if needed, and exits to RESTART$EXECUTIVE. 

If EOF encountered it uses TYPEMSG to print '—EOF HIT", sets SETFLAG ^^T, and exits to MASTERPARSER. 

I;SHIFT$LEFT 

1. Purpose: 

Executes the intra line command L, shift X lef* py N. 

2. Entry: 

I:LNK is the linkage register. It is entered via BAL, I:LNK I:SHIFT$LEFT in MASTEREXECUTIVE. 
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3, Exit: 

B *I:LNK 

4. Operation: 

This subroutine uses: FINDCOLUMN to find column corresponding to the first parometer, SHIFTLEFT to 
shift string left N places, and SETEOD to reset the EOD marker. 



I:SHIFT$RIGHT 

1, Purpose: 

Executes the intraiine string command R, shift X right by N, 

2. Enh-y: 

I:LNK is the linkage register. This subroutine is entered via BAL, I:LNK I:SH1FT$RIGHT from 
MASTEREXECUTIVE. 

3, Exit: 

B *I:LNK which results in a return to MASTEREXECUTIVE. 

4. Operation: 

TViis subroutine uses: FINDCOLUMN to find the column corresponding to the first parameter, SHIFTRIGHT 
to shift string X right N spaces, and SETEOD to set the EOD markers. 

I:SUBSTITUTE 

1 . Purpose : 

Executes the substitute command, S whose format isfn/string./S/string^. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL, IiLNK hSUBSTITUTE in 
MASTEREXECUTIVE. 

3. Exit: 

B *I:LNK 

•A 

4. Operation: 

This subroutine performs the following functions: 

a. Uses FINDCOLUMN to find column corresponding to the first parameter. 

b. Exits if it is not found. 

c. Examines CDT to get address of string2. 
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d. Sets PI = character following string j. 

e. Uses SHIFTRIGHT to shift rightmost characters to the right if new string is shorter than old, 

f. Uses MOVESTRING to put the new string In place. 

g. Uses ADJUSTALLFLAG to reset ALLFLAG to the column number at which matching Is to be re- 
sumed (if ALLFLAG;^0). 

h. Uses SETEOD to Insert carriage return if CR ON. 

I. Exits to MASTEREXECUTIVE. 



I:TYPE 



1 . Purpose: 

Type records in response to intra! ine commands. 

2. Entry: 

I:LNK is the linkage register. This subroutine is entered via BAL from MASTEREXECUTIVE; in re- 
sponse to TY command, via BAL, I:LNK I:TYPE; or in response to TS command, via BAL, I:LNK 
I:TYPE$SUP$SEQ. 

3. Exit: 

B *I:LNK 



4. Operation : 

For I:TYPE FIRSTSET is set equal to sequence number. TYPECARD is used to type cord image with se- 
quence number. For I:TYPE$SUP$SEQ it sets PI = 1 to indicate sequence number suppression. It uses 
TYPECARD to type card image without sequence number. 



Gsneral Purpose Subroutines 

ADDCDTPARAM 

1. Purpose: 

Adds a new parameter to the Command Description Table (see Figure 71), 

2. Entry: 

LNK is linkage register used. Tills subroutine Is entered via BAL, LNK ADDCDTPARAM from several 
PARSE a-outines when it is desired to add to the CDT. Upon entry PI, PARAMPSN, and PRMBUFSZ 
are as shown below. 

3. Exit: 

B 0, LNK with expanded CDT entry. 
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4. OperaMon : 

Words are added to the CDT from PARAMBUF occording to the format shown previously m Figure 71 
using the following Input parameters: 

PI = type of parameter, 

PARAMPSN = next available slot in CDT. 

PRMBUFSZ= number of words to be added. 



ADJINT 

1 . Purpose : 

Forms a sequence number as an integer * 1000. 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK ADJINT. 

3. Exit: 

B *LNK 

4. Operation: 

This routine multiplies the sequence number in PARAMBUF by 1000 and stores it back in PARAMBUF. 

ADJUSTALLFLAG 

1 . Purpose : 

Sets ALLFLAG. 

2. Entry: 

LNK is the linkage register. This subroutine is used by a number of the hroutines in processing intraline 
commands. Upon entry PI = column number at which to resume matching. 

3. Exit: 

B 0, LNK to calling routine. 

4. Operotion: 

No oction is taken if ALLFLAG < 0. Otherwise this subroutine seh ALLFLAG = PI. 

ANLZRIGHT 

1. Purpose: 

Analyzes the composition of a field to the right. 
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2. Entry: 

LNK is the linkage register. This routine is entered vlo BAL, LNK ANLZRIGHT from either the SHIFTLEFT 
or SHIFTRIGHT routine. Upon entry, PI = column at which to begin analyzing. 

3. Exit: 

If BO OFF: Rl = numiser of nonblonks to first blank. R2 = number of blanks — 1 from first blank to 
next nonblank. If BP ON: Rl = number of characters to last nonblank on card. R2 = number of trailing 
blanks on card, CCl = 1 if initial PI > end of buffer. CCl = otherwise. ANLZRIGHT returns to call- 
ing routine via B 0, LNK. 

4. Operation: 

If start of field falls past end of buffer, it sets Rl and R2 = 0, clears stack of Pi, P2, sets CCl and exits. 
EODCLMN !s column number containing last nonblank choracter. 

BPFLAG = 1 if BP ON. 

BPFLAG = if BP OFF. 

MAXCLMN points to the end of buffer. 

This subroutine performs character scan based on blank preservation mode to set Rl and R2 as shown above. 
It sets CCl and returns to colling routine. 

BINTODEC 

1 . Purpose : 

Converts a binary number to decimal, 

2. Entry: 

LNK is the linkage register, PI contains binary number. P2 contains byte address where decimal string 
is to be stored (right-most byte). This subroutine is used by MOVESEQ and TYPESEQ. 

3. Exit: 

Return is to calling routine via B 0, LNK with decimal quantity properly stored. 

4. Operation; 

BINTODEC divides binary number by 10, adds zone bits to remainder (i.e., X'FO'), stores it, moves 
pointer one to left in output string and repeats until seven digits have been converted. 

BLANKBUF 

1. Purpose: ^ 
Stores blanks in CARDIMG. 

2, Entry: 

LNK is the linkage register. This subroutine is used by READRANDOM and READSEQUEN. It is 
called using BAL, LNK BLANKBUF. 
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3. Exit: 

Upon exit blanks are stored in CARDIMG. Return is mode to calling routine via B 0, LNK. 

CHECK 1CDTENTRY 

1. Purpose: 

Ensures there is only one entry in the CDT. 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK CHECKICDTENTRY. 

3. Exit: 

Norma! return is to calling routine (only one entry was present). Error exit is to MASTERPARSER via 
TYPECERR after printing: '-Cn:CMND ILGL HERE'. 

4. Operation: 

This subroutine checks entry count in word 1 of CDT; it should be 1. 



DELETE 



1 . Purpose : 

Deletes records in a specified range. 

2. Entry: 

LNK is the linkage register. This routine is used by R:DELETE, and R:MOVE$DELETE. Calling sequence 
is BAL, LNK DELETE and assumes: 

PI contains sequence number of first record to delete. 
P2 contains sequence number of last record to delete. 
R1 contains sequence number of last record read. 
R2 contains number of records deleted. 

3. Exit: 

CC1 = 1 if last sequence number was passed. CCl = otherwise. Return to calling routine using^ B 0, LNK. 
Message upon hitting end-of-file is '—-EOF HIT'. 

4. Operation: 

Reads and deletes record i. 

It continues until P2 is reached or passed, or EOF hit. 
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BADI01 

1 . Purpose : 

prints obnorrtKil t/O message. 

2. Entry: 

At BADIO, an error code is loaded Into XI from D1. At BADIOl, the error code is assumed to be in XI. 
Entry is with branch because there is no return to calling routine. BADIOl is colled by various open, read 
and write routines. 

3. Exit: 

It returns to the monitor via the EXIT CAL. 

4. Operation: 

It sets up error code rn message line and prints message. 

FINDCOLUMN 

1 . Purpose : 

Evaluates the first parameters for intraline commands. 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK FINDCOLUMN from one of 
the following routines: 

I:DELETE 

I:OVERWR$EXTEND 

I:FOLLOW$BY 

I:SHIFT$LEFT 

I:OVERWRITE 

I:PRECEDE$BY 

I:SHIFT$RIGHT 

hSUBSTITUTE 

Upon entry CDTADR contains address of current command in CDT. 

3. Exit: 

Upon exit: PI = column computed from parameters. 
P2 = width of field at this column. 
XI =pos?tion of next CDT control byte. 
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CCl = 1 if no column found. 
CCl =0 ot+ierwise. 
Exit is BO,LNK 

4. Operation : 

If not in "ALL" mode: and < 3 parameters: if command form K cmnd , it ensures that RSTCLMN < K < 
LASTCLMN. If/string/ cmnd , it uses FINDMATCH to search for string, and = 3 parameters: it sets 
occurrence count = 1 if it is illegal af this point, and it uses RNDMATCH to search for string. Error mes- 
sages (printed via TYPECERR) are: 

■~Cn:'QLL'IGNORED', 

'— Cn:NO SUCH STRING', 

'~Cn:COL>LIMIT', 

"~Cn:COL<LIMir. 



FINDMATCH 

1. Purpose: 



Finds matching string in record. 



2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK FINDMATCH from one of the 
following routines: 

R:FIND$SEQUENCE, 
R:nND$DELETE, 
R:FIND$TYPE, 
FINDCOLUMN. 

Upon entry: PI = column number. 

P2 = address of TEXTC string to be matched. 

3. Exit: 

Upon exit: Rl = column number at which match occurred. 

CCl = if match found. 

CCl = 1 if match not found. 
Exit is via B O, LNK. 

295 



4. Operation: 

This subroutine: 

sets TEXTCADR = C(P2), and 

sets STOPCLMN (last column number atwhicha match can take place) =C(LASTCLMN)- string length. 

If PI < STOPCLMN, it exits with CCl = 1. It scans record for match with TEXTC string. 

GETFILEID 

1 . Purpose : 

Checks syntax of FID and if good, sets PARAMBUF ond PRMBUFSZ. 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK GETFILEID from PARSErSAVE and 
:EDIT to obtain the file ID so it can be placed in the Command Description Table. 

The file ID is assumed to be in the Teletype input buffer. 

3. Exit: 

File ID is now in PARAMBUF as follows: 

PARAMBUF 

TEXTC filename 
TEXTC area name 

and it has been checked for proper format. 
Return is to calling routine via BAL 0, LNK. 
Error returns are via GETNEXTNAME: messages include 

'-P1:BAD FID' 

'-Cn:CMND ILGL HERE' 

'-PMLGL SYNTAX', 

4. Operation; 

This routine rejects a file name which is longerthan eight characters. It uses GETNEXTNAME first to build 
file name in PARAMBUF. It thenpushes the area name, ifpresent. It then pulls the entries from the stack 
and stores them in PARAMBUF and stores in PRMBUFSZ the length in words of the entries In PARAMBUF, 

GETNEXTNAME 
1. Purpose: 

Gets the next name from the Teletype input buffer (TTYIMG) and places it in PARAMBUF. 
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Entry: 

LNK is the linkage register. This subroutine is entered by invoking the NXTNAM commancl procedure 
resulting in the calling sequence: 

BAL, LNK GETNEXTNAME. 

GEN, 8, 24 ' of branches, address of error message, 

GEN, 8, 24 type 1, branch address 1, 

GEN, 8, 24 type n , branch address n. 



3. Exit: 

Upon exit, a name {file or area) resides in PARAMBUF in TEXTC format. 

Return is to the branch address in bits 8-31 of the word in the calling sequence of which a match was 
found on bits 0-7. Error return is to MASTERPARSER. 

4, Operation: 

Input characters from TTYIMG are scanned and tested to determine whether they are part of a name. 
They are placed in PARAMBUF in TEXTC format. When a terminator is found (e.g., comma or right 
parenthesis) the scan is stopped, and the name is padded to the right with three blanks. If on error 
is found, the error message given in the calling sequence is printed and return is made to ^AASTER- 
PARSER via TYPECERR, 

The flow of GETNEXTNAME is given in Figure 82. 



GETNEXTPARAM 

1. Purpose: 

Scans the Teletype input buffer to isolate recognizable character strings which comprise EDIT commands 
and places them in PARAMBUF. 

2. Entry: 

This routine is called by various PARSE: routines. LNK is the linkage register. The routine is invoked 
by the NXTPRM procedure which sets up o calling sequence as follows: 

BAL, LNK GETNEXTPARAM. 

GEN, 8, 24 ' of branches, address of error message. 

GEN, 8,24 completion type, branch address 1, 

GEN, 8, 24 completion type, branch address n. 

3. Exit: 

Upon exit, a parameter is in PARAMBUF in TEXTC format. Return is to the branch address in bits 8-31 
of the word in the calling sequence of which a match was found on bits 0-7. Error return is to 
MASTERPARSER via TYPEPERR. 
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4. Operafion: 

A scan is mode character-by-character, with tests being performed to detect invalid command format. 
Examples: slash {/) must not be the last character of a commend; a sequence number must not exceed three 
digits; the second sequence number in a range must not be greater than the first. Error messages include: 

'-Pn:ILGL STRG' 

■-Pn:NULL STRG' 

'-Pn:ILGL SEQ'' 

'-Pn:SEQ2<SEQl' 

in addition to that given in the calling sequence. 

The flow of GETNEXTPARAM is given in Figure 83. 



lLGL$SEMICOLON 

1. Purpose: 

Output an error message when semi-colon is found following P: or R: CMND (should only be used in 
intrarecord operations). 

2. Entry: 

The address of this routine is entered via the NXTPRM procedure into the calling sequence of a branch 
to routine GETNEXTPARAM when it is desired that the SCOL (semicolon) type of entry be flagged as 
an error. When entered it is done via B *D1 at GN45 of GETNEXT$FIN1SH. 

3, Exit: 

Branches to MASTERPARSER. 

4, Operation: 

It increments byte 3 of CDT containing CMND *, It uses TYPECERR to type '-Cn:CMND ILGL HERE'. 

MOVESEQ 



1 , Purpose : 

Formats sequence number in EBCDIC as 'XXXX. XXX' having four characters from calling sequences appended, 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK MOVESEQ from one of the fol- 
lowing routines: 

R:MOVE$DELETE 

R:MOVE$KEEP 

READSEQUEN 
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Upon entry: PI = sequence number to be converted to EBCDIC; P2 = byte address at which to put the 
string. Word following the BAL contains four characters to be appended to the sequence number. 

3, Exit: 

Upon exit, Rl contains the number of characters in the resultant string. Exit is B 1, LNK. 



4. Operation: 

It uses BINTODEC to convert sequence number to EBCDIC, places string in TEMPBLCK with leading 
zeros blanked and the requested characters appended at the right. 



MOVESTRING 
1 , Purpose : 

Moves a character string into the output buffer. 



Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK MOVESTRING from several 
I: routines. Upon entry PI = column at which string is to be placed; P2 = address of TEXTC string 
which is to be inserted. 



3. Exit: 

B 0, LNK 

4. Operation: 

If starting column is beyond end of record and any character of string is mnblank, it types '-Cn :OVERFLOW' 
via TYPECERR and exits; otherwise, it exits. If not beyond end of record it moves TEXTC string into buf- 
fer, one character at a time. If end of buffer is reached, it types message as above and exits. 



NEWCDTENTRY 
1. Purpose: 

Sets up room In the CDT for a new entry. 



Entry: 

LNK is the linkage register. This subroutine is entered from several PARSE: routines. Uport* entry: 
PI contains the number of the command type to be added; word following the ^L contains the num- 
ber of parameters. 



3. Exit: 

Return is made to a + 2 with CDT entry initialized. 
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4. Op«raf!on: 

CDT entry is Initialized as follows: 

word 0: byte contains length of entry (= initially); byte 1 contains command type (or number) e.g., 
for corriage return, 1 for file name, etc. Byte 2 contains number of this entry in the CDT; byte 3 
contains number of parameters. Words (1 — ► ' of parameters/2) : zeroes. Word "* of parameters/ 
2 + 1 : X'OOOOOIOO", 

PROCESSCOL*PAIR 

1. Purpose: 

Performs internal housekeeping required in processing a pair of column numbers in a record or an infra- 
record command, 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK PROCESSCOL*PAIR from the 
following routines: 

R:FIND$SEQUENCE 

R:FIND$DELETE 

R:FIND$TYPE 

R:SET$STEP 

R:SET$STEP$TYPE 

R:TYPE$COMPRESSED 

R:TYPE 

R:TYPE$SUP$SEQ 

I:SET 

Upon entry, XI points to the location of the next parameter control byte fn the CDT, 

3. Exit: 

Normal exit is B 0, LNK. Error exit is B MASTERPARSER after printing '-BAD COL, NO. PAIR' via 
TYPEMSG and setting SETFLAG and STEPFLAG = 0. 

4. Operation: 

It sets starting and stopping columns as follows: 

FRSTCLMN = if no starting column given. r« 

= column number c - 1 from command if input. 

LASTCLMN = 140 if no stopping column given. 

= column number d + 1 from command if input. 

If c >d it prints error message and exits. 

If d ^ 140 it prints error message and exits. 
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READNXTRANDOM 

1. Purpose: 

Reads random record or next highest- one, 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK READNXTRANDOM from the fol- 
lowing routines: 

R:FIND$SEQUENCE 

R:FIND$DELETE 

R:FIND$TYPE 

R:INSERT$SUP$SEQ 

R:INSERT 

R:MOVE$DELETE 

R:MOVE$KEEP 

R:TYPE$SUP$SEQ 

R:TYPE$COMPRESSED 

DELETE 

Upon entry, PI = sequence number of record to be read. 

3. Exit: 

Rl = sequence number of record actually read. 

CCl = if record existed. 

CCl = 1 otherwise. 

Return is to calling routine via B 0, LNK. 

4. Operation: 

This subroutine uses READRANDOM fo issue read. If read was successful it sets Rl = sequence num- 
ber and CCl = 0. Otherwise It sets CCl = 1 and returns. "* 

READTELETYPE, READTELETYPE2 
1. Purpose: 

Reads on input line. 
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2. Enf ry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK TELETYPE from one of the 
following: 

R:INSERT 

R:INSERT$SUP$SEQ 

It is entered via BAL, LNK TELETYPE2 from MASTERPARSER or R.-COMMENTARY and stores characters 
into TTYIMG. 

3. Exit: 

R1 = number of characters read. It returns via B 0, LNK to calling routine. 

4. Operation: 

It sets buffer to CARDIMG or TTYIMG, stores blanks in buffer, reads up to the length of the buffer and sets Rl. 
If the value in GOSEQ is negative (EDIT is not in GO mode), the input is taken from M:SI, the control 
stream. If the value in GOSEQ is non-negative (EDIT is in GO mode), the input is taken from the edit file 
at the first sequence number greater than the value in GOSEQ. 

SETEOD 

1 . Purpose : 

Scans active card image to locate the rightmost nonblank character. 

2. Entry; 

LNK is the linkage register. This subroutine is used by a number of routines such as MASTEREXECUTIVE 
and several R: and I: routines. It is called using BAL, LNK SETEOD. 

3. Exit: 

EODCLMN contairu column of last nonblank character or -1 if all blanks. RECSIZE contains a byte count 
of zero if all blanks. Return is to calling routine using B 0, LNK. 

4. Operation: 

This subroutine scans record image from right looking for all blank words (up to word 0). If no nonblanks 
are found, it sets flag to check word zero, byte-by-byte. Otherwise, it sets flog to indicate byte- 
by-byte checking in the word where a nonblank character was found. 



SETLASTKEY 

1, Purpose: ^ 
Stores key of last record read read in LASTKEY and stores record size in RECSIZE. 

2. Entry! 

LNK is the linkage register. This subroutine is entered via BAL, LNK SETLASTKEY from READRANDOM 
and READSEQUEN. 



309 



3, Exit: 

It returns to calling routine via B 0, LNK with LASTKEY and RECSIZE set. 

4, Operation: 

It sets LASTKEY and RECSIZE, removes carrioge return, if any, ond uses SETEOD to append carriage 
return if CR ON. 

SHIFTLEFT 

1, Purpose: 

Shifts a character string to the left, 

2, Entry: 

LNK Is the linkage register. This subroutine is entered via BAL, LNK SHIFTLEFT from one 'of the 
following routines: 

I:DELETE 

I:SHIFT$LEFT 

I:SUBSTITUTE 

Upon entry: Pi = column number at which to start the shift. 
P2 = width of field starting at this column. 
P3 = number of spaces to shift left. 

3, Exit: 
BO, LNK 

4, Operation : 

This subroutine uses ANLZRIGHT to arralyze field at Pi. If field extends beyond end of card, it prepares 
to shift in blanks. If shift will push data off beginning of record, it prints ' — Cn:UNDERFLOW' via 
TYPECERR and prepares to shift only to column 0, If width of 0, it bypasses shift. It performs shift, 
blanking out the cleared characters on the right. 

SHIFTRIGHT 

1, Purpose: 

Shifts a character string to the right, 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK SHIFTRIGHT from the following 
routines: 

I:FOLLOW$BY 

I:PRECEDE$BY 
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I:SHIFT$RIGHT 
IrSUBSTITUTE 
Upon entry: PI = column at which to stort shift. 

P2 = width of field starting at this column. 
P3 = number of places to shift. 

3. Exit: 
BO,LNK 

4. Operation: 

It exits if PI >MAXCLMN. 

It initializes FIELDCNT= number of fields to compress and BLANKCNT = number of blanks to compress. If 
field 1 extends to end of record it types pointers prior to shifting. If field extends beyond end of record, in 
addition to message, it blanks out P2 characters and exits. 

For normal shifts: 

Ft uses ANLZRIGHT to compute Rl =column at end of nonblanks and R2 = number of nonblanks -1 =num- 
ber to shift for each space to be filled (just rightmost portion of record if BP ON). 

The Rt and R2 quantities computed by each entry to ANLZRIGHT are pushed into a stackto be pulled 
from to perform the shifting or compressing. When all fields have been compressed, blank-fill is per- 
formed on the original fields at left in record. 

Special cases: 

If field2-n is found to spill off end of card: message is output via TYPECERR: '— Cn:OVERFLOW'; 
and BLANKCNT gets set to the appropriate number of nonblanks to destroy. 

It performs special process of compressing fields that do fit until reaching the one which does not, 
where it then computes a special Rl and R2. This covers cases in which part of a nonblank field 
gets destroyed. 

Tlie flow of SHIFTRIGHT is given in Figure 84. 



TYPECARD 

1. Purpose: 

Types a card image. 

2. Entry: 

-A 
LNK is the linkage register. This subroutine is entered via BAL, LNK TYPECARD from one of the fol- 
lowing routines: 

R:FIND$SEQUENCE 

R:FIND$DELETE 

R:FIND$TYPE 
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R:SET$STEP 
R:SET$STEP$TYPE 
R:TYPE$COM PRESSED 
R:TYPE$SUP$SEQ 
I:TYPE 

1:TYPE$SUP$SEQ 
Upon entry PI = sequence number to be typed (< !f sequence number is not to by typed). 

3. Exit: 

Return is to calling routine via B 0, LNK. 

4. Operation: 

It calls MOVESEQ if sequence number is to be typed and calls TYPEMSG to type card contents. 



TYPECERR, TYPEPERR 



1 . Purpose: 

Types a command error message (TYPECERR) or parameter error message (TYPEPERR). 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK TYPECERR or BAL, LNK TYPEPERR 
from many routines. The word following BAL contains address of message to be printed. 

3. Exit: 

B 1,LNK 

4. Operation: 

If maximum error messages allowed have been printed it returns. It sets command or parameter number to 
agree with its place in the command: e.g., ' — C2 '. It types message using TYPEMSG. 



TYPEMSG 



1 . Purpose : ^ 
Remove trailing zeroes and types a message. 

2. Entry: 

LNK is the linkage register. This subroutine is entered via BAL, LNK TYPEMSG with next word = word ad- 
dress of TEXTC string. 
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3, Exrt: 

Return is to cafling routine via B 1,LNK 

4, Operation : 

The Monitor WRITE CAL is used. The DRC mode is normally off, resulting in trailing carriage return and 
line feed. If the last character of the message is EOM, the mode is changed to suppress carriage control. 

TYPESEQ 

1. Purpose: 

Types the sequence number 'XXXX.XXX'. 

2. Entry: 

LNK is the linkage register. This routine is called via BAL, LNK TYPESEQ from the following routines: 

R:COMMENTARY 

R:FIND$SEQUENCE 

R:FIND$DELETE 

R:INSERT 

R:INSERT$SUP$SEQ 

R:SET$STEP 

R:SET$STEP$TYPE 

TYPECARD 

Upon entry, Pi = sequence number to be typed. The address after the CAL contains four characters to ap- 
pend to sequence number. 

3. Exit: 

Return is to calling routine via V 1, LNK. 

4. Operation: 

This subroutine calls BINTODEC to convert binary sequence number to decimal; it puts a period between 
the fourth and fifth digits; it appends the four characters in the calling sequence to the end of sequence 
number; it suppresses leading zeros in the first three digit positions and it calls TYPEMSG \g print 
sequence number. 



Indexed Scratch File Management 

Since the Control fVogram for Real-time (CP-R) does not support an indexed access method, EDIT provides its own 
indexed file management when assembled for use under CP-R. 
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Indexed File Structure 

In the indexing structure used for the CP-R Edit scratch file, the key length is fixed and the data record length is 
implicit in the data representation. The file is given a granule size of 256 words. Any granule of the file will be 
unused, used entirely as index, or used entirely as data. The first granule of the file is always an index granule. 
Whenever more storage is needed for either index or data, the next unused granule of the file is assigned. It will 
retain this assignment until the indexing structure is discarded. 

For each record in the file, the index contains an entry that relates the key and the address of the record. The en- 
tries are ordered by key value. The granules of the index are linked by pointers in each granule containing the 
granule numbers of its predecessor and successor. 

Data granules of the file are composed of CP-R compressed format records. Data is accessed only via index pointers, 
so no order relationship or linkage is maintained between data records or granules. 

The index entry for each record indicates whether the record is continued or deleted. If a record is continued, it is 
actually only a fragment of a record. Its index entry is followed by another that describes another record fragment 
to be appended. Continuation never occurs across on index granule boundary. Instead, all index entries dre moved 
to the next granule, or to an inserted granule, tf the next granule has too few available entries. Any service on a 
record involves all of its fragments treated as a single record. Record continuation is used to provide for the case 
where a record is overwritten by a longer record. If a record is deleted, it will not be recognized by any indexed 
file services. Both the index entry and the data space will be reassigned if it is necessary to build a new entry 
(either original or continuation) at the same point in the index. Otherwise, neither the index nor the dato space 
will be recovered. If a record is deleted, the index entries for all its fragments are marked as deleted. 



The formats for the index granule and index entry are given below. 



INDEX GRANULE FORAMT 



Word 




1 
2 
3 
255 



BLINK 



FUNK 



NAV 



Flags 



Used index entries 
Available index entries 



i 



wh« 



BLINK backwards link, which is the granule number in the file of the previous index granule. BLINK is -1 
for the granule containing the smallest key value. 

FLINK forwards link, which is the granule number in the file of the next index granule. FLINK is -1 for 
the granule containing the largest key value. 

NAV entry number of the first available index entry. The first entry is number zero. 

Flags not currently used. 
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INDEX ENTRY FORMAT 
Byte 



Key 



Pointer 



Flags 



^here 



Key is the value of the key for the associated record. 



Pointer bits 0-21 is the granule number of the record in the file ond bits 22-31 is the byte number of the 

record in the granule. 



L is the length of the record fragment in bytes. 



Flags bit 6 indicates the entry is deleted and bit 7 indicates the record is continued in the next entry. 



OPENSCR 



1. Purpose: 

Opens the CP-R indexed scratch file. 

2. Coll: 

BAL,LNK OPENSCR 

3. Input: 

DCB F:EI must be assigned to the scratch file. 



4. 


Output 




None. 


5. 


Stack: 




Six. 



6. Subroutines: 

READX, OPENSCRI, CLOSESCR, UPKENTRY 
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7. Operation: 

This subroutine is used when a file Is specified for use as the EDIT scratch file but no subject file Is named. 
In this case. It is assumed that the file Is either empty or that its contents were generated by previous use 
as on EDIT scratch file. In the former case, it is initialized as an empty indexed file. In the latter case. 
Its contents are validated, and its next available data byte nnd next available granule are determined. 

The flow of OPENSCR is given in Figure 85. 



CLOSESCR 



1. Purpose: 

Closes the CP-R indexed scratch file. 

2. Call: 

BAL,LNK CLOSESCR 

3. Input: 

DCB F:EI must be assigned to the scratch file. 



4. 


Output; 




None. 


5. 


Stock: 




Two. 


6. 


Subroutines 




WRGRANS 


7. 


Operation: 



This subroutine writes the current index and data granules to the scratch file if they have been modified. 
It then closes the F.-EI DCB. 



The flow of CLOSESCR is given in Figure 86. 

WRGRANS 

1 . Purpose : 

Writes out Index and data granules for CP-R Indexed scratch file. 

2. Call: 

BAL,LNK WRGRANS 
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OfENSCR 
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SPEriFIEC FILE 
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OF SPECIFIED 
SCRATCH FILE 



cm.'Mr'TrNT 

MRUCTLIPE 



TES 



YREfCX 



FEflD THE 

FIRST 
GfRMLILF 



EOD \^ES 

^■-^ENCOUNTEPECl^ 



GENERRTE fiN 
ERROR HE55fiGE 



CLD5E THE 
SCRRTCH FILE 



< 



GfT NEXT 
CCfflMflUn 



OPg.M'-.CF: 



SET NEXT UNUSED 

GRflN TO INDEX 

CRflN -tl 




C3FEN RND 

INITIALIZE 

-XKflTCM FILE 



IXIT 




GENERATE ftN 
ERROR ft55f)&E 



GET NEXT 
COUHflMJ 



rE'i 



JL. 



SET rJEXT INDEX 

ENTRf fllWEiER Tp 





L=^ 



Figure 85 . Flow Diagram of OPENSCR 
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- ) 




GET NEXT INDEX 
ENTRY 



rE5 



SET LAST OATH 

WAN FMD NEXT 

DflTfi BYTE 




SET Lfl5T GRflN 

TO Ln5T OflTfl 

GRfiN -» 1 




CjEZ) 




GEMERRTE UN 

ERROR ►cssnce 



Z' GET NEXT N 
f COHMfild J 



Figure 85. Flow Diagram of OPENSCR (cont. ) 
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CL0t.E5CP 



CLOSFSCR NkHRf^flHS 



WRITE OUT 

INDEX mo 

Dfirfi GR|=W5 



CL05E 5CRftTCM 
FILE 



EXIT 



I ^ 



Figure 86. Flow Diagram of CLOSESCR 
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3. 


Input: 




None. 


4. 


Output: 




None. 


5. 


Stack: 




One. 


6. 


Subroutines 




None. 


7. 


Operation; 



For both the current index and current data granule, this suisroutine writes the granule to the scratch file 
if the granule has been modified since it was last read. 

The flow of WRGRANS is given in Figure 87. 

OPENSCRI 

1 . Purpose : 

Opens and initializes the CF-R indexed scratch file. 

2. Call: 

BAL,LNK OPENSCRI 

3. Input: 

DCB F:EI must be assigned to the scratch file. 



4. 


Output: 




None. 


5. 


Stack: 




Two. 


6. 


Subroutines 




WRGRANS 
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(- 




HRITE OUT ofnn 
GRfiNLLE 



SET FLAG: DflTfl 

GRflNULE NOT 

RLTERED 




^Li 



X 



\ULE ALTERED,.' 



YES 



WRITE OUT INDEX 
WflNULE 



SET flrg: index 

GRANULE NOT 
RLTERED 



EXIT 



^^ — 



Figure 87. Flow Diagram of WRGRANS 
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7. Operation : 

DCB F:EI is opened. A rewind end a write-end-of-file are issued to the file. The index granule buffer 
is set to the contents of granule zero of an empty scratch file. Indicators are set such that scratch file 
granule zero is in the buffer and modified, that b/te of granule 1 is the next available data b/te, and 
that granule 2 is the next available granule. 



The flow of OPENSCRI is given in Figure 88. 

READD 

1 . Purpose : 

Reads in a data granule from CP-R scratch file. 

2. Coll: 
BAL,LNK READD 

3. Input: 

PI = granule number. 

4. Output: 
Normal: 10 = 0. 

Scrotch file overflow: X'lC in register 10 byte 0. 



5. 


Stack: 




Two. 


6. 


Subroutines 




WRGRANS 


7. 


Operation: 



If the required data granule is already in the data granule buffer, this routine returns immediately. If it 
is not, WRGRANS is called to write out any altered data or index information and the required granule is 
read into the data granule buffer. Overflow is reported if the required granule is past the file EOT. 



The flow of READD is given in Figure 89. 



READX 

1. Purpose: 

Reads in an index granule from CP-R scratch file. 
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( OPENSCRi ) 
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SET NEXT 

RvniLFeLE GRF)N 

TO 2 
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GRANULE 
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Figure 88. Flow Diagram of OPENSCRI 
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( REfiOO j 



REflOO Y 

'GRfiNULE IS 

REQUESTED 

^flNULE^ 



■OTES 



■I'HRr^flNS^ 



WRITE OUT 
INOex FIND 

ORTfl 
GPflNULES 



SET flag: DflTfl 
GRfiNULE NOT ]N 



REfiO REQUESTED 
on in GRfiNULE 



SET FLFIGS: DPiTPl 

GRfiNULE IN, NOT 

fLTEREO 



SET CURRENT 

□nift GRfiNUtE 

NUMBER 



EXIT 



-3/ EXIT j 



Figure 89, Flow Diagram of READD 
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2. Call: 
BAL,LNK READX 

3. Input: 

PI = granule number. 

4. Output: 
Normal: 10 = 0. 

Scratch file overflow: X'lC in register 10 b^e 0. 



5. 


Stack: 




Two. 


6. 


Subroutines: 




WRGRAN5 


7. 


Operation: 



If the required granule is already in the index granule buffer, this routine returns immediately. If it is 
not, WRGRANS is called to write out any modified dato or index information, and the required granule is 
read into the index granule buffer. Overflow is reported if the required granule is beyond the file EOD, 

T>ie flow of READX is given in Figure 90. 



UPKENTRY 



1 . Purpose : 

Unpacks an index entry from the CP-R scratch file. 



2. 


Call: 




aM,LNK UPKENTRY 


3. 


Input: 




PI = entry number in granule 


4. 


Output: 




None. 


5. 


Stack: 




Two. 
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YHRORftHS, 



WRITE I3UT 
INDEX AND 

DfiTft 
GRRNULES 



SET flhg: index 

GRANULE NOT ]N 



READ RE1XIE51ED 
IKDEX GKRNULE 



SET FLFIG5: 

INDEX GRANULE 

IN, NOT RLTERED 



SET CURRENT 

INDEX GRfiNULE 

NUMBER 



C "" ") 



Figure 90. Flow Diagram of READX 
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6. Subroutines: 
None. 

7. Operation: 

Each field of the indicated entry in the current index granule is moved into a full-word area in the 
EDITOR context. 



PKENTRY 

1. Purpose: 

Packs an Index entry into the CP-R scratch file index buffer. 





2. 


Call: 

BM,LNK PKENTRY 




3. 


Input: 

PI = entry number in granule 




4. 


Output: 
None. 


( ^ 


5, 


Stack: 
Two. 




6. 


Subroutines: 
None, 




7. 


Operotion: 



Each field of the indicated entry in the current index granule is overwritten with the data from a full-word 
area in the EDITOR context. 



FINDX 



1. Purpose: 

Finds index entry for specified key in CP-R scrotch file. 

2. Call: 
BAL,LNK FINDX 



I 3. Input: 



PI = key value. 
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4. Output: 

R] = entry number of entry returned. 

If key is found, entry for key is returned, and unpacked; 10 = 0. 

If key found but deleted, entry for key is returned and unpacked; 10 = X'43', 

Entry not found; not past end of file; entry for first key following specified one is returned and un- 
packed; 10= '43'. 

Entry not found and past EOF; next availoble entry in last index granule is returned, not unpocked (since 
not yet written); 10 = X'43'. 

5. Stack: 
Six. 

6. Subroutines: 
READX, UPKENTRY 

7. Operation: 

The index granule chain ts scanned in reverse from the current granule until a granule is found that is the 
first index granule or does not entirely follow the given key. Then the chain is scanned forward until a 
granule is found which is the last index granule or does not entirely precede the given key. Then the en- 
tries of this granule are searched forward until one is found which is equal to or past the given key. 
This entry is returned. 

The flow of FINDX is given in Figure 91. 



FINDNXX 



1 . Purpose : 

Finds index entry for next key after specified one. If none, indicates entry for last key in file. 

2. Input: 

Pl = key for which to find successor. 

3. Output: 
Successor found: 

Rl = entry number of successor; XBUFF contoins correct index granule; 10 = 0. 

Successor not found; Rl = entry number of last key of file; XBUFF contains its index granule; 10 = X'06' 
in byte zero. 

4. Stack: 
Four. 
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c 
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Figure 91. Flow Diagram of FINDX 
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5. Subroutines: 

FINDX, READX, UPKENTRY 

6. Operation : 

FINDX is called for the specified key. If the returned key is the same or is deleted, the index is 
scanned forward to the first nondeleted entry. If at any time the end of the index is encountered, end- 
of-file is reported, and the index is scanned in reverse until the first undeleted entry is found. This 
is the returned entry. 

TTie flow of FINDNXX is given in Figure 92. 



GETX 

1. Purpose: 

Gets the necessary index entries for writing a record to the CP-R scratch file. It uses existing and de- 
leted entries, when possible to ensure that the entries obtained include enough attached data space. 

2. Call: 
BAL,LNK GETX 

3. Input: 

PI = key value. Record text is in the buffer labeled CARDIMG. 

4. CXitput: 

Normal: 10 = if key previously existed; = X'43' if not correct index granule read in. Rl = entry num- 
ber for first entry obtained. 

Scratch file overflow; 10 = X'06' in byte zero. 

5. Stack: 
Six. 

6. Subroutines: 

FINDX, READX, WRGRANS, PKENTRY 

7. Operation: 

The amount of data space needed is determined. Any existing entries for the key are assigned. If more 
space is needed, adjacent deleted entries are also assigned. If still more space is needed, a new index 
entry is inserted at the front of the assigned set of entries, and the balance of the data space needed is 
attached to it. To make room for the new entry, other entries may be shifted to the following index gran- 
ule or a new index granule may be created. 

The flow of GETX is given in Figure 93. 
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Figure 92. Flow Diagram of FINDNXX 
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SET FLflG." INDEX 
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Figure 93. Flow Diagram of GETX 
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Figure 93. Flow Dlagrain of GETX (conf.) 
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Figure 93. Flow Diagram of GETX (cont. ) 
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DATA PACK/UNPACK CONVENTIONS 

The following definitions describe register use conventions in the subroutines used to move and pock/unpack data 
between the user buffers and the data granule buffer. These subroutines are GETREC, PUTREC, GETRBYTE and 
PUTRBYTE. 

The conventions are as follows: 

BLANKCT = P2 Blank count for multiple blank expansion/compression, 

NEXTX = PI Next index entry to access when current data area used up. 

STRPTR = XI Pointer to next byte in user I/O byte string. 

STRCT = X2 Remaining byte count for user I/O byte string. 

RECPTR = X3 Pointer to next byte in data granule buffer. 

RECCT = X4 Remaining byte count for current block of data in data granule buffer. 

GETREC 

1. Purpose: 

Gets a data record given its index entries. 

2. Coll: 
BAL,LNK GETREC 

3. Input: 

PI = NEXTX = entry number for first index entry to use. 

4. Output: 
None. 

5. Stack: 
Eight. 

6. Subroutines: 
GETRBYTE 

Note; See Data Pack/Unpack Conventions above. 

7. Operation : 

The registers are set up by the Data Pack/Unpack Conventions. The routine then loops calling GETRBYTE 
to get bytes from the record, expanding multiple blank string representations, and storing the results in the 
record buffer untfl the requested count Is exhausted or on end-of-record character is obtained. 

The flow of GETREC is given in Figure 94. 
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Figure 94. Flow Diagram of GETREC 
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PUTREC 

1. Purpose: 

Puts a data record into the CP-R indexed scratch file, given tlie index entries for the record. 

2. Call: 
BAL,LNK PUTREC 

3. Input: 

PI = NEXTX = entry number for first index entry to use. 



4, 


Output: 




None. 


5. 


Stack: 




Eight. 


6, 


Subroutines: 




PUTRBYTE 



See Data Pack/Unpack Gsnventions above. 

7. Operation: 

The registers ore set up by the Data Pack/Unpack Conventions. Characters ore obtained from the 
record buffer, multiple blank strings are compressed, and the results are inserted in the data buffer 
using PUTRBYTE, until the requested character count is exhausted. Finally, an end-of-record char- 
acter is inserted. 

The flow of PUTREC is given in Figure 95. 



GETRBYTE/PUTRBYTE 

1 . Purpose : 

Gets/puts byte of CP-R indexed file data. 

2. Coll: 

BAL,LNK GETRBYTE 

or 

BAL,LNK PUTRBYTE 

3. Input: 

Registers set up as in Date Paclv'Unpack Conventions. For PUTRBYTE only; TI = byte to insert. 
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Figure 95. Flow Diagram of PUTREC 
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Figure 95. Flow Diagram of PUTT^EC (cont. ) 
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4. Output: 

For GETRBYTE only; Tl = byte obtained. 



5. 


Stack: 




One. 


6. 


Subroutines 




READD. 


7. 


Operotion: 



When no data remains in the current data block either routine accesses the next index entry, and reads the 
indicated data granule to get the next block of data for a record. It then transfers the data in the block, 
one character per call, until the block is exhausted. 

The flow of GETRBYTE/PUTRBYTE is given in Figure 96.~ 

DELETERECORD 

1 . Purpose : 

Deletes the most recently read record. 

2. Coll: 

BAL,LNK DELETERECORD 



3. 


Input: 




None. 


4. 


Output: 




None. 


5. 


Stack: 




Four. 



6. Subroutines: 

FINDX, UPKENTRY, PKENTRY 

7. Operation: 

Sets the "DELETED" flag in all index entries for the record, and indicates that the current index granule 
has been altered. 

The flow of DELETERECORD is given in Figure 97. 
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Figure 96. Flow Diagram of GETR BYT E/PUTR BYTE 



345 



EELETERECORD 



PFlfTFft \1^ 



) 



GET SEQUENCE M? 

HF MOST 

RECENTLY READ 

RECORD. 



VFlNnX 




^ 



MfWK THE ENTRr 
ns DELETED 



5E1 flog: index 

t»HI«JLE RLTEKED 




C "'^ ) 



-^' EXIT j 



n>lNT TO NEXT 
INDEX ENTRT 



Figure 97. Flow Diagram of DELETERECORD 
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WRITERANDOM 

1. Purpose: 

Writes a record into the CP-R Indexed scratch file. 

2. Call: 

BAL,LNK WRITERANDOM 

3. Input: 

PI = key. Data to write in CARDIMG. Record length in RECSIZE, 



4. 


Output 




None. 


5, 


Stack: 




Four. 



6. Subroutines: 

GETX, PUTREC, SCROFLO 

7. Operation: 

This routine calls GETX to get an index entry (ies) for the record to be written. If the scratch file does 
not overflow, WRITERANDOM uses PUTREC to move the record into the data space attached to the 
entry(res) obtained. 

The flow of WRITERANDOM is given in Figure 98. 



WRITENEWRANDOM 

1. Purpose: 

Writes a new record into the CP-R indexed scratch file. 

2. Call: 

BAL, LNK WRITENEWRANDOM 

3. Input: 

PI = key. Data to write in CARDIMG. Record length in RECSIZE. 

4. Output: 

New entry; CC = 0. Not new entry; CC = 8. 
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URITFRRM Vr.FTK 



GET FIN INDEX 
ENTRY 




TES 



VPUTRFC 



PUT THE 

RECORD INTO 

THE FILE 



C "" ) 



GENERBTE ON 
ERROR HESSflGE 



/ GET rCXT \ 
f CCmMflND j 



Figure 98. Flow Diagram of WRITERANDOM 
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5. Stack: 
Four. 

6. Subroutines: 

FINDX, GETX, PUTREC, SCROFLO 

7. Operation: • 

This routine first calls FINDX to determine if the specified routine already exists. If it does not, WRITE- 
NEWRANDOM calls GETX to get an index entry for the record, and PUTREC to move the record into the 
data space obtained with the index entry. 

TTie flow of WRITENEWRANDOM is given in Figure 99, 

READRANDOM 

1 , Purpose : 

Reads a record from the CP-R indexed scratch file, 

2. Call: 

BAL,LNK READRANDOM 

3, Input: 

PI = key. Data byte length in RECSIZE. 

4. Output: 





Key found: 




cc = o. 




Data in CARDIMG, 




Key not found: 




CC=8. 


5. 


Stack: 




Four. 



6. Subroutines: 

BLANKBUF, FINDX, GETREC, SETLASTKEY ^ 

7. Operation : 

This routine calls FINDX to determine the location of the record. If the record exists, READRANDOM 
moves it into the record buffer by calling GETREC. 

The flow of READRANDOM is given in Figure 100. 
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WRITENEM?ftNDOM 1 



MPlTFNFH^^FlNnX 



FIND THE 

INPEX ENTRY 

FOR THE 

f?ECORD 




^r.FTx 



GET HN INDEX 
ENTRY 




EOT ON \^ES 
CRATCH FILE^ 



^nilRTr. 



ruT 1HE 

RECORD INTO 

THE FILE 



LCI 



( "" ) 



LCI 8 



( "" ) 



GENERATE RN 
ERROR VCSSfCE 



y GET NEXT \ 
f GOMMRMD j 



Figure 99. Flow Diagram of WRITENEWRANDOM 
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( REfiORFiNOOM j 



pEWlRRNn jl 



BLRNK T^C 

INPUT 

BUFFER. 



WINPX 



FtNO THE 

SPECIFIED 

INDEX ENTRY. 




SET LAST 

SEQUENCE NUMBER 

TO TMRT Of 

RECORD RE no 





C "" ) 



Figure 100. Flow Diagram of READRANDOM 
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READSEQUEN 

1. Purpose: 

Reads sequentially a CP-R indexed scratch file. 

2. Call: 

BAL, LNK READSEQUEN 

3. Input: 

Data byte length in RECSIZE. 

4. Output: 

Data in CARDIMG. Rl = key of record read. 

5. Stack: 
Six. 

6. Subroutines: 

BLANKBUF, FINDNXX, GETREC, SETLASTKEY 

7. Operation: 

This routine uses FINDNXX to locate the record that succeeds the last one read or written. If there is 
a successor, READSEQUEN moves it into the record buffer by calling GETREC. If there is no suc- 
cessor, READSEQUEN indicates an end-of-file. 

The flow of READSEQUEN is given in Figure 101 . 

BUILDSCR 

1. Purpose: 

Builds the CP-R indexed scratch file from the subject file. 

2. Call: 

BAL, LNK BUILDSCR 

3. Input: •* 
M:EI set to scratch file, M:EO set to subject file. Both DCBs closed. 

4. Output: 
None. 
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f REflDSEOUEN j 



BLRHK THE 

INPUT 

BUFFER. 



YFIICTM 



FIND NEXT 

INOtX ENTRY. 

CK LHST Oh€ 

IN FILE. 




SET LRST 

SEQUENCE NUMBER 

TO LRST IN 

FILE. 



^fJIBf 



GET r^■IClEl'EO 

RECORD FROM 

BUFFER 



SET LF15T 
SEOl.BfE NR OF 
FILE INTP EOO 

MESSnOE. 



SET LAST 

SEQUENCE NIMBER 

TO THAT Of 

RECORD READ 



SET RETURN 

PflRf^eTEK TO 

10,000,000 (EOO 

FiOGI. 



SET RETURN 

mRHMETER TO 

SEQUENCE NR OF 

RECORD RERO 



( "" ) 



C "" ) 



Figure 101 . Flow Diagram of READSEQUEN 
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5. Stack: 
Seven. 

6. Subroutines: 

OPENSCRI, WRITENEWRANDOM, WRITERANDOM 

7. Operation: 

This routine reads the subject File sequentially, indexes the records read, and writes them (using WRITE- 
NEWRANDOM and WRITERANDOM) into the scratch file. The key value for each record is determined 
either by the trailing eight bytes of the record, or by a fixed increment applied to the prior key written. 
If the save file sequencing mode is on, a key in the last eight bytes of any record is removed. 



The flow of BUILDSCR is given in Figure 102. 

INSEQNR 

1 . Purpose : 

Translates a line number in a subject file record. 

2. Call: 

BAL,LNK INSEQNR 

3. Input: 
None. 

4. Output: 

If found: 
10=0. 
R1 rvalue times 1000. 

If not found : 
10 = 1. 

5. Stack: 
Three. 

6. Subroutines 
Internal only. 



7. Operation: 

Starting with the eighth byte from the end of the record, the routine skips leoding blanks, skips leading zeros, 
accumulates the integer part of a key up to four characters, and tests for a decimal point. If none is found. 
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SET NEXT OUTPUT 

SEQUENCE NR TO 

CURRENT INPUT 

SEQUENCE NR 



•-^Km) 



Figure 102. Flow Diagram of BUILDSCR 
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Figure 102. Flow Diagram of BUILDSCR (cont. ) 
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the routine then skips blanks. If a decimal point is found, the routine accumulates the fractional part of 
the key up to three characters and then skips blanks. If no digits were encountered, or rf the scon did not 
reach the end of the record, the routine reports that no sequence number was found. 



SAVESCR 

1. Purpose: 

Builds a standard CP-R file from the CP-R indexed scratch file. 



c 



2. 


Call: 




aAL,LNK SAVESCR. 


3. 


Input: 




M:EI and M:EO assigned; M:EI open 


4. 


Output: 




None. 


5. 


Stack: 




Ten. 



6. Subroutines : 

READSEQUEN, READX, UPKENTRY 

7. Operation : 

By counting the number of records in the scratch file and considering the structure of the save file, the 
routine determines how big the save file must be. Using this estimate, the routine can allot the save file 
or abort a save on an inadequate save file before it is altered. The save is conducted hy reading the 
scratch file sequentially (using READSEQUEN) and writing to the save file until an end-of-file condition 
is reported for the scratch file. If the save file sequencing mode is on, each record will have its key 
inserted in its lost eight bytes. 

The flow of SAVESCR is given in Figure 103. 



GETEO 



1. IHirpose: 

Determines the nature of the EO file. 

2. Call: 
BAL,LNK GETEO 
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Figure 103. Flow Diagram of SAVESCR 
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(_ 



Figure 103. Flow Diagram of SAVESCR (cont,) 
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Figure 103. Flow Diagram of SAVESCR (cont. ) 
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3. Input: 

M:EO assigned to a file. 

4. Output: 

If file and area exist, Rl = File organizotton code; = for unblocked; = 1 for blocked; = 2 for compressed. 

R2 = record size if Rl = 1. 

R3 = file size in sectors. 

If file or area nonexistent, R3 = 0. 

5. Stack: 
One. 

6. Subroutines: 
None. 

7. Operation: 

The CP-R "GET DEVICE/FILE/OPLABEL INDEX" service is used to obtain the required information. If the 
device involved is a 720X, the number of sectors is divided by three to reflect an assumed 256-word gran- 
ule size on a device with 90-word sectors. 
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15. SYSTEM GENERATION 



Overview 

The System Generation program is assembled in absolute, using the ASECT directive, and is ORG'd (origined) at 
two locations: 

1. The first ORG at location X' 140' allocates and defines the system flags and pointers. It is the first location 
thot cannot be used for an external interrupt. The system flags and pointers ore a group of cells that pro- 
vide communication between SYSGEN, all portions of the Monitor, and the system processors and service 
routines. Since these cells are in fixed, predetermined locations, they are defined via the EQU directive 
in all programs that reference them. Note that these cells must not be changed, deleted, or altered in any 
way in the SYSGEN listing unless the EQU directives ore also changed in all programs that reference the 
ceils. The system flags and pointers are followed by a skeleton of the Master Dictionary. The Master 
Dictionary is not necessarily fixed at its assembled location since it may be moved to the unused interrupt 
cells if sufficient space exists. 

2. The next ORG (based on assembly parameters) fixes the start of the SYSGEN program. SYSGEN Is ORG'd 
such that the program will occupy the highest address portion in memory. This provides the SYSGEN 
Loader with the maximum amount of room to load the Monitor and its overlays in the lower address portion 
of memory. If a user adds a significant amount of code to the Monitor, this ORG may have to be moved 
to a higher location to prevent the Monitor from overflowing SYSGEN during the load. 

The System Generation program is divided into two sections designated as SYSGEN and SYSLOAD. SYSGEN pro- 
cesses all the SYSGEN control commands and ollocates and initializes all the Monitor tables from the information 
on the control commands. It also builds o symbol table for SYSLOAD that contains the name ond absolute address 
of all the Monitor tables. Optionolly, SYSGEN will output on o rebootoble deck containing the Monitor tables 
and SYSLOAD on cards, paper tape, or magnetic tape. The SYSGEN phase can be overwritten during the loading 
of the Monitor, and terminates by exiting to SYSLOAD. 

SYSLOAD loads the Monitor, all optional resident routines, the CP-R overlays, the Job Control Processor, and then 
writes these in to the CP-R file in the SP area. A map containing the CP-R table allocation and disk allocation is 
output upon request. SYSLOAD terminates by reading in the RAD Bootstrap and exiting to it, simulating a booting 
of the system from the disk. 

Figure 104- illustrates the core layout of SYSGEN and SYSLOAD after the absolute object module is loaded by the 
Stand-Alone SYSGEN Loader. 



Note: 'MEMSIZ 




X'140' 


Unchanged 


System Flags and Pointers 


y'9rw' 


Skeleton of Master Dictionary 


X'73A' 


Unchanged 


X'4on' 


Stand-Alone SYSGEN Loader 




Unchanged 


#MEM5!7F-#f;YSGFN 


SYSGEN Processing Routines 




Subroutines Unique to SYSGEN 




SYSLOAD 




Subroutines Used by SYSGEN and SYSLOAD 


-4 
#MFM<;i7F 


: and 'SYSGEN are assembly parameters. 





Figure 104. SYSGEN and SYSLOAD Layout before Execution 
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Figure 106dapicts atypical core layout after SYSGEN end SYSLOAD hgve executed. 



Unchanged 



MTW,0 Instruction Stored in all Used 
Interrupt Locations 



Unused Interrupt Locations Used for 
Monitor Tables 



System Flags and Pointers 



Remainder of Monitor Tables 



CP-R Overlay Area 



Used to link resident 
CP-R and JCP, and to 
consolidate CPRMAP 
fife (must be as large 
as the largest module 
+255 words) 



SYSLOAD 



■X'40' 

' Dispatcher Int. Loc, 

■X'140' 
X'216' 

page boundary 



'MEMSIZE 



Figure 105. SYSGEN and SYSLOAD Layout after Execution 



SYSGEN/SYSLOAD Flow 

The flowcharts inFlgure I06deplct the overall flow of SYSGEN and SYSLOAD. The labels used correspond to the 
labels in the program Jisting. 



Loading Sinwlation Routines, CP-R, and CP-R Overlays 

SYSGEN/SYSLOAD contains a loader that loads the instruction simulation packages, CP-R, the CP-R overlays, 
and the Job Control Processor (JCP). Each ob|ect module loaded must hove one DEF directive that identifies the 
object module to the loader.^ The DEFs listed in Table 10 are recognized by the Loader. -^ 



This DEF must be the first load item in the ROM. 
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Gotype"CP-RSYSGEN" 
"IN, OUT DEVICES". 



Sfore inpuf, output devices 
for Read/Write routine. 




READ 



Go to READ for input 
vof next control command 



Assume input of :SYS 
CRA03, LPAOF. 



Decode control cmd end go 
to proper processing region. 




Figure 106. SYSGEN/SYSLOAD Flow 
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^KdO \ 
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Set up group code end I evel 
bit for Control Task int. 



1 



Set all used interrupt 
locations to MTW, 0. 
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FWA, FPOOL FWA, etc. 



Go output map 
if requested. 




Figure 106, SY5GEN/5YSLOAD Flow (cont.) 
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P02 




Output rebootable 
deck of SYS LOAD, 
if requested. 





Go Type "CP-R 
SYS LOAD". 
"INPUT OPTIONS". 



Process :SYSLD cmd 
and set up Flags and 
I/O devices. 




Zero out all defined 
disk areas (first sec- 
tor only if fast 
option). 




Figure 106. SYSGEN/SYSLOAD Flow (cont. 
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€> 
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S400 
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write to CP-R file on 
disk. Load the CP-R 
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and Simulation 
routine's FWA. 




Figure 106. SYSGEN/SYSLOAD Flow (cont. ) 
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i 
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Figure 106. SYSGEN/SYSLOAD Flow (cont.) 
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T<^le 10. S^anda^d System Modules 



(- 



/ 



DEF Name 


Program 1 


ABEX 


Background Abort/Exit 


ALLOT 


ALLOT Service Calls 


ARM 


ARM/DISARM/CONNECT/DISCONNECT 


BKLl 


Background Loader 


CHECK 


Check service calls 


CKD 


Crash dump to LP 


CKD2 


Crash KDUMP to LP 


CLOSEX 


Close a DCB 


COCIO 


I/O routines for COC 


CPR 


Main CP-R module 


CRD 


Crash dump to BI 


CRS 


Crash SAVE 


CRS2 


Crash SAVE 


DBC1 


Debug functions 


DBC2 


Debug functions 


DBC3 


Debug functions 


DBDW 


Debug data and entries 


DBS1 


Debug scan 


DBS2 


Debug functions 


DBS3 


Debug scan 


DELETE 


Service call 


DEVI 


Device service calls 


DISC 


Disk handlers 


DUMP 


Postmortem dump 


ENQ 


Enqueue/dequeue a resource 


ESU 


Error summary ■* 


EXTM 


Termination service calls 


FGLl 


Run>time Loader 


FGL2 


Run-time Loader 
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Table 10. Standard System Modules (cent.) 



DEF Name 


Program 


FGL3 


Run-time Loader 


GETNRT 


I/O subroutines 


INIT 


Boot-time initialization 


lOEX 


lOEX service colls 


IPLMM 


Memory Management Initialization 


IPLSYM 


SYMBIONT Initialization 


JOBl 


Job service calls 


JOB2 


Job service colls 


KEYSCN 


Command syntax scanners 


KEYl 


Keyin processor 


KEY2 


Key in processor 


KEY3 


Keyin processor 


KEY4 


Keyin processor 


KEY5 


Keyin processor 


KEY6 


Keyin processor 


KEY7 


Keyin processor 


KEYS 


Keyin processor 


LOG 


Error Logger 


LP 


Line Printer Handlers 


MEDIA 


Media service calls 


MEDl 


Media service calls 


MED2 


Media service calls 


MMROOT 


Memory Management data and subroutines 


MM01 


Memory Management service calls 


MM02 


Memory Management service calls 


MM03 


Memory Management subroutines 


MM04 


Memory Management exec 


MM05 


Memory Management subroutines 


MM06 


Memory Manogement service calls 


OPENX 


Open a DCB 


PINIT 


INIT service calls 


PL01 


Public libraries 
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Table 10. Standord System Modules (cont ,) 



DEF Nome 


Program 


PRINT 


Print service calls 




READWR 


ReadAVrite service calls 




REWDEV 


Rewind on devices 




REWIND 


Rewind service colls 




RUN 


Run service calls 




RWBFIL 


Blocked File I/O 




RWDEV 


Read/Write device l/O 




RWFILE 


Read/Write file I/O 




SCHED 


Periodic Scheduler 




SCMSG 


Periodic Scheduler Subroutines 




SDBUF 


Side buffering routiries 




SEX 


Symbiont Exec 




SIGNAL 


Signal handler 




SJOB 


SJOB/KJOB service calls 




SNAM 


SETNAME service calls 




STDLB 


STDLB service colls 




SYMl 


Symbiont routines 




SYM2 


Symbiont routines 




SYM3 


Symbiont routines 




TAPE 


Magnetic Tope handlers 




TEL 


Terminal Executive Language 




TELl 


TEL routines 




TEL2 


TEL routines 




TERM 


Task Terminotion 




TEX 


Terminal Exec 




TEX1 


Terminal Exec routines 




TEX2 


Terminal Exec routines 




TIOl 


Secondary Task Initiation 




TI02 


Secondary Task Initiation 




TI03 


Task initiation Data and subroutines 




TMGETP 


Task/ECB subroutines 




TMTYC 


Tosk/ECB subroutines 




TRAPS 


Trap handling 




IT 


Task termination 

4* 


WAIT 


Walt service calls 
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Rebootable Deck Formt 

If a :PUNCH control eommand is read by SYSGEN, a rebootable deck Is output that includes the CP-R tables with 
their initialized values, SYSLOAD, and the CP-R Symbol Toble.^ This deck con be used to load a new version of 
CP-R without re-inputting all the SYSGEN control cominands. 

The first cord in the rebootable deck consists of a one-card bootstrap program that loads the next two cards in the 
deck. These next two cords consist of a program that loods the remainder of the deck, consisting essentially of the 
CP-R Table, SYSLOAD, and the CP-R Symbol Table In core image format. 

The two cards containing the Core Image Loader hove the following format: 

Byte No. Contents 

X'FF'(for cord 1) X'9F'(for card 2) 

1,2,3 Unused (all zeros) 

4, 5, 6, 7 Complement checksum of entire card (carry out 

of bit is Ignored in computing checksum) 

8,9 Unused (all zeros) 

10, 1 1 Load address, minus one, for following data 

12-119 Loader in absolute core image format 

The core image format of the Two-Cord Loader is 



word 1 


X'FF' orX'9F' 




word 2 


Complement checksum of entire 29 words on card 


word 3 




Lood address - 1 


word 4 




(words 4-30 
contain the 
Two- Cord 
Loader in abso- 
lute core image 
format. ) 


• 


word 30 


1 _. . _ _ J _ — 



78 15 16 31 

The CPR Tobies, SYSLOAD, and the CPR Symbol Table ore output in the core image format 



word 1 
word 2 

word 3 

(words 3-30 
contain the 
obove -mentioned 
data in core 
image format. ) 

word 30 



X'FF' or X'9F' 



Load address - 1 



78 



Sequence number (0-n) 



Complement checksum 
(not incl. holfword 0) 



15 16 



31 



If the rebootable deck is output to paper tape, there ore no special additional characters. That is, the paper tape 
contains on exact cord image. 
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All cards contain on X'FF' in byte except the last cord. The last card contains on X'9F' in byte and the 
SYSLOAD entry address in place of the load address In word 1. The lost card contains no data other that the 
SYS LOAD entry address, the sequence number, and checksum. 

Stand-Alone SYSGEN Loader 

The Stand-Alone SYSGEN Loader is o small loader specifically created to load the SYSGEN absolute object module. 
Since SYSGEN is assembled in absolute, the SYSGEN Loader will only load absolute load items and handles only 
the small subset of the Sigma Object Language required to load SYSGEN. 

The SYSGEN Loader I/O routine is similar to the SYSGEN ^/O, with the code performing the actual looding being 
similar to the code in the SYSGEN Loader. 



SYSGEN LOADER LOADER 

Each BI tape/deck is preceded with a 26-record bootstrap that loads the SYSGEN Loader into memory from the some 
device it was booted from. 
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APPENDIX A. CP-P SYSTEM FLAGS AND POINTERS 



Table A-1. CP-R System Flags and Pointers 



Nc 



K:SYSTEM 



K:BACKBG 


X'UO- 


K.-BCKEND 


X']4V 


K-FGDBGl 


X'142' 


KrFGDEND 


X'143' 


KrCCBUF 


X'144' 


K:BPOOL 


X'145' 


K:FGDBG2 


X'146' 


K:FMBOX 


X'147' 


KjFPOOL 


XM48' 


KrUNAVBG 


X'149' 


K:MASTD 


X'14A' 


KrNUMDA 


X'UB' 


K:VRSION 


X'14C' 


KiACCNT 


X'14D' 


K:OV 


X'UE' 


KtKEYST 


X'UF' 


KulCPl 


X'150' 



Location 



X'2B' 



Description 



Monitor Identification (RBMIDENT) hove the following 
meaning: 



Bits 
Bits 
Bits 
Bits 
Bits 



Bit 
Bit 
Bit 
Bit 
Bit 
Bit 



0-7 

8-11 

12-15 

16-23 

24-25 



26 
27 
28 
29 
30 
31 



System-identification (X'80' = CPR) 
Version (C=3, D = 4, etc.). 
Update (1, 2, 3, etc.). 
Reserved. 

00 - Sigma 5. 

01 - Sigma 6/7. 

10 - Sigma 9 

1 1 - Xerox 550 
Reserved. 
Reserved. 
Reserved. 

Real-Time Routines. 
Reserved. 
Symbionts included. 



Beginning address of background. 

Ending address of SMM background. 

Beginning address of non-monitor real memory. 

Ending address of oddressable real memory. 

Address of Control Card Buffer. 

Unused in mapped system. 

Unused in mapped system. 

Start address of FGD Mailboxes. 

Start address of FGD Blocking Buffer Pool. 

Memory sire + 1 . 

Start address of MDFLAG table in Master Dictionary, 

Highest valid index for Master Dictionary. 

CP-R version. 

Job Accounting flag. 

Permanent and current sizes of OV. 

Pbst status of key-in read here. 

JCPond Control Task. 

Bits have the following meaning: 



JCP is executing. ^ 

Background is active. 
Background is checkpointed on the disk. 
Background Is being used by Foreground 

but was not checkpointed. 
Waiting for key-in response. 
Skip to next JOB card. 
Set by ABORT for CALEXIT. 
Set by CALEXIT for ABORT. 



Bit 


0=1, 


Bit 


1 = 1/ 


Bit 


2=1, 


Bit 


3= 1, 


Bit 


4=1, 


Bit 


5=^, 


Bit 


6=1, 


Bit 


7=1, 
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* 


Table A-1. CP-R 


Sysfttm Flogs and Pbinten (cont, ) 


Name 


Location 


Description 


KJCPl (cont.) 




Bits 8-15, Previous assign, of C device (For TY ' 

key-in). 
Bits 16-21, Unused. 
Bit 22= 1, System processor executing. 
Bit 23= 1, Execute BKGD Debug. 
Bits 24-25, meons no PMD requested. 

1 means conditional PMD. 

2 means unconditional PMD. 
Bit 26, Flog for CKPT tKat alarm typed. 
Bit 27= 1, CP-R Initialize routine is running. 
Bit 28= 1, FG key-in active. 

Bit 29= 1, TY key-in active. 

Bit 30= 1, Attend command was input. 

Bit 31= 1, JOB command was input. 


KrCTST 


x'lsr 


Flags to execute Control Task subtask. Bits have the 
following meaning: 

Bit 0= 1, Execute CHECKPOINT. 

Bit 1= 1, Execute FGD Londer/Releaser. 

Bit 2= 1, Execute Restart. 

Bit 3= 1, Time to service all devices. 

Bit 4= 1, Execute ABORT/EXIT. 

Bit 5= 1, Execute key-in. 

Bit 6= 1, Execute PMD. 

Bit 7= 1, BCKG is IDLE. 

Bit 8= 1, Execute BCKG load. 

Bit 9= 1, InodJCP. 

Bit 10= 1, Load BCKG (Program not JCP). 

Bit 11= 1, Key-in required by higher priority subtask. 

Bit 12= 1, Recycle FGLl/2 to FGLl for possible RLS. 

Bit 13 1, Execute error logger. 

Bit 14= 1, CKPT deferred during BCKG abort. 

Bit 15= 1, BCKG in wait following attended mode 

abort. 
Bit 26= 1, KEY2 doing STDLB RAD file OPEN/CLOSE. 
Bit 27= 1, FGLl called from FGL2. 
Bit 28= 1, Control Task is operating. 
Bit 29= 0, Execute ABORT part of ABORT/EXrr. 
Bit 29= 1, Execute EXIT part of ABORT/EXIT. 
Bit 30= 1, PMD from key-in request. 
Bit 31 = 1, PMD from PMD command. 


K:SY 


X'152' 


Nonzero if SY key-in active. 


K:SPEND 


X'153' 


End of load area for SMM BCKG program. 


kk:twd 


X'154' 


WD code for Control Task. Byte nonzero means CT 
was triggered. 


K.-CTGL 


X*155' 


Group level for Control Tosk. 


KALOAD 


X'156' 


Name in BCD of BCK program to load (two words). ^ 


KrBAREA 


X'158' 


Index of area to load BCK program from. w» 


K:ASSIGN 


X'159' 


Address of ASSIGN table. 


K:RUNF 


X'lSA* 


Pbst run status here for FGD i RUN or IROV command. 


KtHIINT 


X'15B' 


HWO = Control task intemipt number. 
HW1 = Highest address used for interrupt. 
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Table A-1, CP-R System Flogs and Pointers (oont. ) 



Name 



K:FGDBG3 

K:PMD 

K:DCB 

K:KEYIN 
K:FGDBG4 
KrDELTA 
KK3UEUE 

K:BTFILE 



K;GO 


X'173' 


K:PAGE 


X'174' 


KrRDBOOT 


X'175' 


K:DCT1 


X'176' 


K:DCT16 


X'177' 


KtOPLBSl 


X'178' 


K:OPLBS3 


X'179' 


K:RFT4 


X'17A' 


K:RFT5 


X'17B' 


K:SERDEV 


X'17C' 


K:REQCOM 


XM7D' 


KrINITX 


X'17E' 


K:FGLD 


X'17F' 


KrPMDI 


X'180' 


K:CTDR7 


X'lsr 


K:DBTS 


X'182' 


K:KEYDCB 


X'183'-X'187 


K:CLK1 


X'188' 


K:CLK2 


X'18A' 


K:CLK3 


X'18C' 



Location 



X'lSC 
X'15D' 
X'162' 

X'169' 
X'16F' 
XM70' 
X'17r 

X'172' 



Description 



Unused in mapped system. 

Ceils to dump for PMD as DW address (5 words). 

DCB for Ointroi Task to load in overlays (7 words). 
Always assigned to RBM File. 

Key-in control words. 

Unused in mapped system. 

Entry point for Delta. 

Address of Queue routine. Byte = Nonzero, Stop I/O 
on BCKG. 

Status of BT Files 

Bits 0-8, 1 bit for each XI file. Bit s^t to 

1 means SAVE file. 
Bits 16-31, LWA to use for non-SAVE files. 

Permanent and current sizes of GO. 

Byte = Number of lines per page. 

FWA and device Number of RADBOOT. 

Addresses of tables. 



Address of SERDEV. 

Address of REQCOM. 

Address to return to after INIT runs. 

Byte 0= Nonzero, XEQ FGD Lood/RLS. 

Flags for dumps. 

Location to save context pointer during Control 
Task dump. 

Context pointer for background PMD. 

DCB to read operator key-ins. 

Clock cells must start on a DW boundary: tfiere are 
counters for 4 clocks — 2 words/clock.'' 

Word 2 gets stored into word I when Counter = 0. 



The user never needs to access Clock 4. 
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TobleA-1. CP-II 


. S/ttem Flags and Pointers {cont. ) 




Nome 


Location 


Description 


K:ABTLOC 


XM8E' 


Abort location. 




K:MSG1 


X'190' 


KEY-IN. 




K:MSG2 


X'193' 


KEY ERR. 




K:MSG3 


X'I96' 


RLS NAME NA. 




K;MSG4 


X'I9A' 


FILE NAME ERR. 




K:MSG5 


X'I9E' 


FGD AREA ACTIVE. 




K:MSG6 


X'1A3' 


NOT ENUF BCKG SPACE. 




K:MSG7 


X'1A9' 


UNABLE TO DO ASSIGN. 




K:MSG8 


X'lAF' 


BCKG CKPT. 




K:MSG9 


X'1B2' 


BCKG IN USE BY FGD. 




KrMSGIO 


X'1B7' 


BCKG RESTART. 




KtMSGII 


X'IBB' 


CK AREA TOO SMALL. 




l<C:MSG12 


X'lCO' 


I/O ERR ON CKPT. 




K:MSG13 


X'1C5' 


JOB ABORTED AT xkxxx. 




KrMSGU 


X'lCB' 


LOADED PROG NAME. 




K:MSG15 


X'ICF' 


UNABLE TO LOAD BCKG PUB LIB. 




IC:MSG16 


X'1D7' 


CKPT WAITING FOR BCKG I/O RUNDOWN. 




K:xrrsiM 


X'1E6' 


Unimplemented instruction noimol return. 




KrTRPSIM 


X'1E7' 


Unimplemented instruction trap return. 




K:PPGMOT 


X'lES' 


Unimplemented instruction memory-protection erroi 


return. 


KtMONTH 


X'lEA' 


Table of days/month and BCD names. 




K:DATE1 


X'IF6' 


Number days in current year; current year - 1900. 




K:DATE2 


X'1F7' 


Day of year. 




K:TIME 


X'lFS" 


Time of day in seconds. 




K:ELTIM1 


XMF9' 


FGD saves BCKG elapsed time here. 




K:LIMIT 


X'lFA" 


Maximum execution time for BCKG. 




KtACCNAM 


X'lFB- 


Account entry for AL file (8 words). 




K:ELTIM2 


X'202' 


Lost word of account entry (elapsed time). 




K:PTCH 


X'207' 


Beginning address of patch area. 




K:PTCHND 


X'208* 


Ending address of patch area. 




K:IOWD 


X'209' 


I/O trigger values. 




K:tOGL 


X'20A' 






KtCPWD 


X'20B' 


CP trigger values. 




KiCPGL 


X'20C' 




« 


K:IOLOCK 


X'20D' 




•A 


KsRMPT 


X'20E' 


RMPT location and length. 




KrBAAEM. 


X'20F' 


Maximum number of BCKG pages. 




KJAET 


X'210' 


Number of allocatable DCT entries. 




K:RTS 


X'211' 


CP-R stock pointer. 
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Table A-l . CP-R System Flags end Pointers (cont.) 



Name 


Location 


Description 


K:MDNAME 


X'212' 


Byte 0: Number of Master Dictionary entries. 
Bytes 1-3: Address of MDMAME table. 


KtDCTlX 


X'213' 


Address of DCTl table. 


K:RBMEND 


X'214' 


LWA of resident CP-R. 


K:RUNJ 


X'215' 


Status from JCP run CAL . 


K:DEBUG 


X'216' 


Debug communication LOC . 


K:FSMM 


X'217' 


Pages, end address for foreground SMM . 


K:MDBOA 


X'218' 


Address of MDBOA table. 


K:MDEOA 


X'219' 


Address of MDEOA table. 


K:MDDCTI 


X'21A' 


Address of MD DCTl table. 



( ^ 
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APPENDIX B. XEROX STANDARD OBJECT LANGUAGE 



MTROOUCnON 

6ERERAL 

The Xerox standard object language provides a means of 
expressing the output of any language processor in startdard 
format. All programs and subprograms in this object format 
can be loaded by the Monitor's relocating loader. Such a 
loader is capable of providing the program linkages needed 
to form an executable program in core storage. The object 
language is designed to be both computer- indepertdent and 
medium-irtdependent; i.e., it is opplicoble to any Xerox 
computer having a 32-b!t word length, and the tame format 
is used for on/ output medium. 

SOURCE CODE TRANSIATION 

Before a program can be executed by the computer, it must 
be translated from symbolic form to binary data words and 
machine instructions. The primary stages of source program 
translation are accomplished by a processor. However, urtder 
certain circumstances, the processor may not be able to trans- 
late the entire source prog ram directly into machine language 
form. 

If a source program contairts symbolic forward references, a 
single-pass processor such as the Xerox Symbol assembler con 
ratfesolve such references into machine language. Thisisbe- 
cause the machine longuage value for the referenced symbol 
is not established by a one-pass processor unti I after the state- 
ment containing the forward reference has been processed. 

A three -^ass processor, such as the Xerox Assembly Program 
(AP), is capable of making "retroactive" changes in the 
object program before the object code is output. Therefore, 
a two-pass processor does not hove to output any special 
object codes for forward references. An example of a for- 
ward reference in a Symbol source program is given below. 



EQU 



$ + 3 



Cl,5 Z 

L1,R Z 

Z EQU 2 

BG Z 

R EQU Z -I- 1 



In this example the operand $ + 3 is not a forward reference 
because the assembler con evaluate it when processing the 
source statement in which it appears. However, the oper- 
artd Z in the statement 

CI, 5 Z 

is a forward reference because it appears before Z has been 
defined. In processing the statement, the assembler outputs 
the machine-language code for CI,5, assigns a fonvard ref- 
erence number (e.g., 12) to the symbol Z, and outputs that 
forword reference number. The forward reference number 
and the symbol Z are also retained in the ossembler's symbol 
table. 

When the assembler processes the source statement 

LI,R Z 

it outputs the machine-ionguoge code for LI, assigns a for- 
ward reference number (e.g., 18) to the symbol R, outputs 
that number, and again outputs forward reference number 
1 2 for symbol Z. 

On processing the source statement 

Z EQU 2 

the assembler ogoin outputs symbol Z's forward reference 
number and also outputs the value, which defines symbol Z, 
so that the relocating loader will be able to satisfy refer- 
ences to Z in statements Cl, 5 Z ond LI, R Z. At this time, 
symbol Z's forward reference number (i.e., 12) may be 
deleted from the assembler's symbol table and the defined 
value of Z equated with the symbol Z (in the symbol table). 
Then, sdasequent references to Z, as in source statement 

BG Z 

would not corKtitute forward references, since the ossembler 
could resolve them immediately by consulting its symbol 
table. 

If o program contains symbolic references to externally 
defined symbols in one or more separately processed subpro- 
grams or library routines, the processor will be urxible to 
generate the necessary program linkages. 

An example of an external reference in a Symbol source pro- 
gram is shown below. 



REF 



ALPH 



LI, 3 ALPH 



Although a discuuion of the object language is not directly 
pertinent to theCP-R, it is included in this manual because 
it applies to all processors operating under CP-R. 



When the assembler processes the source statement 
REF ALPH 
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it outputs the symbol ALPH, in s/mbolic (EBCDIC) foirn, in 
a declaration specifying that the symbol is an external ref- 
erence. At this time, the assembler also assigns a declara- 
tion nome number to the symbol ALPH but does not output 
the number. The symbol and name number are retained in 
the assembler's symbol table. 

After a symbol has been declared an exterrKil reference, it 
may appear any number of times in the symbolic subprogram 
in which it was declared. Thus, the use of the symbol 
ALPH in the source statement 

LI, 3 ALPH 

in the above example, is valid even though ALPH is not 
defined in the subprogram in which it is referenced. 

The relocating loader is able to generate interprogram link- 
ages for any symbol that is declared an exterr>al definition 
in the subprogram in which that symbol is defined. Shown 
below is an example of an external definition in a Symbol 
source program. 



DEF 



ALPH 



LI, 3 ALPH 
ALPH AI,4 X'F2' 

When the assembler processes the source statement 

DEF ALPH 

it outputs the symbol ALPH, in symbolic (EBCDIC) form, in 
Q declaration specifying that the symbol is an external defi- 
nition. At this time, the assembler also assigns a declaration 
name number to the symbol ALPH but does not output the 
number. The symbol and name number are retained in the 
assembler's symbol table. 

After a symbol has been declared on external definition it 
may be used (in the subprogram in which it was declared) in 
the same way as any other symbol. Thus, if ALPH is used as 
a forward reference, as in the source statement 



LI, 3 



ALPH 



above, the assembler assigns a forward reference number to 
ALPH, in addition to the declorotion name number assigned 
previously. (A symbol may be both a forward reference and 
an externoi definition.) 

On processing the source statement 

ALPH Al,4 X'F2' 

the assembler outputsthedeclarotion name numberof the 
label ALPH (and an expression for its value) arKl also outputs 
the machine-language code for AI,4 and the constant X'F2'. 

OBJECT LANGUAGE FORMAT 

An object language program generated by a processor is out- 
put OS a string of bytes representing "load Items". A load 
item consists of an item type code followed by the specific 
load information pertaining to that item. (The detailed format 
of each type of load item is given later in this appendix.) 
The individual load items require varying numbers of bytes 



for their representation, depending on the type and specific 
content of each item. A group of 108 bytes, or fewer, com- 
prises a logicol record. A load item may be continued from 
one logical record to the next. 

The ordered set of logical records that a processor generates 
for a program or subprogram is termed an "object module". 
The end of an object module is indicated by a module-end 
type code followed by the error severity level assigned to 
the module by the processor. 

RECORD CONTROL INFORMATION 

Each record of on object module consists of 4 bytes of con- 
trol information followed by o maximum of 104 bytes of load 
information. That is, each record, with the possible excep- 
tion of the end record, normally consists of 108 bytes of 
information (i.e., 72 cord columns). 

The 4 bytes of control infonrrKition for each record have the 
form and sequence shown below. 

Byte 



Record 


Type 


Mode 


Format 




1 1 


1 


°l 


1 
Byte 1 


2 


3 4 


5 6 


7 


Sequence Number 





Byte 2 








7 


Checksum 





Byte 3 



Record Size 



7 

Record Type specifies whether this record is the last 
record of the module: 

000 means last 

001 means not last 

Mode specifies that the loader is to read binory infor- 
mation. This code is always 1 1 . 

Format specifies object language format. This code is 
always 100. 

Sequence Number is for the first record of the module 
and is incremented by 1 for each recorcfrhereafter, 
until it recycles to after reaching 255. 

Checksum is the computed sum of the bytes comprising 

the record. Carries out of the most significant bit 
position of the sum are ignored. 

Record Size is the number of bytes (including the record 
control bytes) comprising the logical record (5 < record 
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size £ 108). The record lize will nonrnllyb* 106 bytes' 
for all records except the lost arte, which mo/ be fewer. 
An/ excess b/tes in a physical record ore ignored. 

UAO ITEMS 

Each lood item begiru with a control byte that indicates the 
item type. In some instances, certain parameters are also 
provided in the load item control byte. In the following dis- 
cussion, lood items are categorized according to their function: 

1. Declorotiofw identify to the loader the external and 
control section labels that are to be defined in the 
object module being loaded. 

2. Definitions define the value of forward references, 
external definitions, the origin of the subprogram being 
loaded, and the starting oddress (e.g., as provided in 
the AP END directive). 

3. Expression evaluation load items within a definition 
provide the values (such as constants, forward refer- 
ences, etc.) that ore to be combined to form the final 
value of the definition. 

4. Loading items cause specified information to be stored 
into core memory. 

5. Miscel loneous items comprise padding bytes and the 
module-end indicator. 

DECLARATIONS 

In order for the loader to provide the I inJcoge between subpro- 
grams, the processor must generate for each extemol refer- 
ence or definition a load item, referred to as o "declaration", 
containing the EBCDIC code representation of the symbol 
and the information that the symbol is either on external ref- 
erence or definition (thus, the loader will hove access to 
the actual symbolic rwme). 

Forward references are always internal references within on 
object module. (External references ore never considered 
forward references.) The processor does not generate a dec- 
laration for a forword reference as it does for externals; how- 
ever, it does assign name numbers to the symbols referenced. 

Declaration name numbers (for control sections and external 
lobels) and forword reference nome numbers apply only within 
the object module in which the/ ore assigned. They hove no • 
significance in establishing interprogram linl(ages, since 
external references and definitions ore correlated by match- 
ing symbolic names. Hence, rxime numben used in any 
expressions in a given object module always refer to symbols 
that hove been declared within that module. 

The processor must generate a declaration for each symbol 
that identifies a program section. Although the Xerox Symbol 
assembler used with the Monitor allows only a standard con- 
trol section (i.e., program section), the stondard object 
language includes provision for other types of control sec- 
tions (such OS dummy control sections). Each object module 
produced by the Symbol processor is considered to consist of 
at least one control section. If no section is explicitly iden- 
tified in a Symbol source program, the assembler assumes it 
to be a standard control section (discussed below). The stan- 
dard control section is alwa/s assigned a declaration rwme 



number of 0. All other control sections (i.e. , produced by 
fl processor copable of declaring other control sections) ere 
assigned declaration name numbers (1, 2, 3, etc.) in the 
ofder of their appearance in the source program. 

In the load items discussed below, the access code, pp, des- 
ignates the memory protection class that is to be associated 
with the control section. The meaning of this code is given 
below. 



PP 


Memory Protection Feoture* 


00 


Read, write, or access instructions from. 


01 


Read or access instructions from. 


10 


Read only. 


11 


No access. 



Control sections ore always allocated on a doubleword 
boundary. The size specification designates the number of 
bytes to be allocated for the section. 

Declare Standard Control Section 



Byte 



Control byte 



1 



1 1 



12 3 4 5 6 7 

Byte 1 



Access code 




Size (bits 1 through 4) 


P P 







1 
Byte 2 


2 3 4 5 6 7 


Size (bits 5 through 12) 





Byte 3 


7 


Size (bits 13 through 20) 





This item declares the stortdard control section for the object 
module. There may be no more than one standard control 
section in each object module. The origin of the startdord 
control section is effectively defined when the fiist reference 
to the stondord control section occurs, altho«jgh the declara- 
tion item might rmt occur until much later inj^e object 
module. 



"Read" means o program con obtain information from the 
protected area; "write" nteans a program can store informa- 
tion into a protected area; and, "access" means the compu- 
ter can execute instructions stored in the protected area. 
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This capability is required b/ one-pass processors, since 
the size of a section cannot be determined until all of 
the load information for that section has been generated by 
the processor. 

Declore Nonstondord Control Section 
Byte 



Control byte 




Byte 1 



Access code 




Size (bits 1 through 4) 


P P 









Byte 2 



Size (bits 5 through 12) 



Byte 3 




Size (bits 13 through 20) 





This item declares a control section other than standard con- 
trol section (see above). The loader is capable of loading 
object modules (produced by other processors, such as as- 
semblers or compilers) that do contain this item. 



Declore Dummy Section 
ByteO 



Control byte | 








1 n 



Byte 1 


1 


2 3 4 5 6 7 


First byte of name number 





Byte 2 




7 


Second byte of name number* 





Byte 3 




7 


Access 


code 




Size (bits 1 through 4) 


P 


P 








Byte 4 


1 


2 3 4 7 


Size (bits 5 through 12) 





Byte 5 




7 


Size (bits 13 through 20) 





Declare Page-Bounded Control Section 
Byte 



Control Byte 








11110] 


1 
Byte 1 


2 


3 4 5 6 7 


Access code 




Size (bits 1 through 4) 


P P 










1 
Byte 2 


2 


3 4 5 6 7 




Size 


(bits 5 through 12) 


1 



Byte 3 




7 




Size 


(bits 13 through 20) | 





This item comprises a declaration for a dummy control sec- 
tion. It results in the allocation of the specified dummy 
section, if that section has not been allocated previously 
by another object module. The label that is to be associ- 
ated with the first location of the allocated section must be 
a previously declared externa! definition name. (Even 
though the source program may not be required to explicitly 
designate the label as on external definition, the processor 
must generate an external definition nome decloration for 
that label prior to generating this load item.) 

Declare External Definition Nome 



Byte 



Control byte | 











1 


1 



Byte 1 


1 


2 3 4 5 


6 


7 


Name length, in bytes (K) 





V -- I his item declares a nonstondord control section beginning 
on a memory page boundary. 



If the module has fewer than 256 previously assigned name 
numbers, this byte is absent. 
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Byte 2 



Firat byte of name 




Byte K+1 



Lc8t byte of name 



This item declares a label (in EBCDIC code)that is an exter- 
nal definition within the current object module. The name 
may not exceed 63 bytes in length. 



Byte ) 






- 






(K) 


1 


1 



Byte 2 






7 


Pint byte of name 





Byte K+1 


• 




7 


Last byte of name 





Declore Primary External Reference Nome 



Byte 














Control byte | 














1 





' 



Byte 1 



Name length (K), in bytes 




Byte 2 



First byte of rwme 




Byte K-t-1 



lost byte of nome 



This item declares a symbol (in EBCDIC code) that is a pri- 
mary exterrKil reference within the current object module. 
The name may not exceed 63 bytes in length. 

Aprimary external reference is capable of causing the loader 
to search the system library for a corresponding external 
definition. If a corresponding external definition is not found 
in another toad module of the progrom or in the system li- 
brary, a load error message is output and the job is errored. 

Declare Secondory External Reference Nome 
Byte 



Control byte I 














1 


1 






This item declares a symbol (in EBCDIC code) that is a pri- 
mary external reference within the current object module. 
The name may not exceed 63 bytes in length. 



A secondary external reference is not capable of causirtg the 
looder to search the system library for a corresponding exter- 
iwi definition. If a corresponding external definition is rwt 
found in another load module of the program, the job is not 
errored ond no error or abnormal message is output. 



Secortdory external references oFtenappear in I ibrary routines 
that contain optionol or alternative subroutines, some of which 
may rtot be required by the user's program. By the use of pri- 
mary external references in the user's program, the user con 
specify that only those subroutines that are achioily required by 
the current job ore to be loaded. Although secondary external 
references do not cause looding from the library, they do cause 
linkages to be mode between routines that are loaded. 



DEFINITIONS 

When a source language symbol is to be defined (i.e., equa- 
ted with a value), the processor provides for such a value by 
generating an object language expression to be evaluated by 
the loader. Expressions are of variable length, ond termi- 
nate with on expression-end control byte (see Section 4 of 
this appendix). An expression is evaluated by the addition 
or subtraction of values specified by the expression. 

Since the loader must derive values for the origin ortd start- 
ing address of a program, these also require definition. 




Control byte 1 














1 
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Tills item sefs the loader's load-location counter to the 
value designated by the expression immediately following 
the origin control byte. This expression must rxst contain 
any elements that cannot be evaluated by the loader (see 
Expression Evaluation which follows). 



in the loader's symbol toble until the module end is encoun- 
tered. Tlie referenced expression is the one immediately 
following the name number. It may contain vtalues that have 
not been defined previously, but all such values must be 
available to the loader prior to the module end. 



Forward Reference Definition 



Byte 












Control byte I 








1 












After generating this load item, the processor need not retain 
the value for the forward reference, since that responsibility 
is then assumed by the loader. However, the processor must 
retain the symbolic name and forward reference number 
assigned to the forward reference (until module end). 



ExterrKil Definition 



Byte 



Byte 1 



First byte of reference number 



Byte 2 




Second byte of reference number 





This Item defines the value (expression) for a forward refer- 
ence. The referenced expression is the one immediately 
following byte 2 of this load item, and must not contain 
any elements that cannot be evaluated by the loader (see 
Expression Evaluation which follows). 



Forward Reference Definition and Hold 



Byte 














Control byte 











1 












Control byte | 








10 


1 


"1 



Byte 1 


1 


2 3 4 5 


6 


7 


First byte of name number 





Byte 2 








7 


SecorKi byte of name number^ 





This item defines the value (expression) for an external 
definition name. The name number refers to a previously 
declared definition name. The referenced expression is 
the one immediately following the name number. 

Define Start 

Byte 



Control byte 



1 



Byte 1 



Byte 2 



First byte of reference number 



Second byte of reference number 



This item defines the value (expression) for a forward refer- 
ence and notifies the loader that this value is to be retained 



This item defines the starting address (expression) to be used 
at the completion of loading. The referenced expression is 
the one immediately following the control byte. 

EXPRESSION EVALUATION 

A processor must generote on object language expression 
whenever it needs to communicate to theHoader one of 
the following: 

1, A program load origin. 

2. A program starting address. 



If the module has fewer than 256 previously assigned name 
numbers, this byte is absent. 
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3. An •xtemol definition value. 

4. A fonmrd reference value. 

5. A field definition value. 

Such expressions may include sums and differences of con- 
stants, addresses, and external or forward reference values 
that, when defined, will themselves be constants or addresses. 

After initiation of the expression mode, by the use of o con- 
trol b/te designating one of the five items described above, 
the value of an expression is expressed as follows: 

1. An address value is represented by on offset from the 
control section base plus the value of the control sec- 
tion base. 

2. The value of a constant is odded to the accumulated 
sum by generating on Add Constant (see below) control 
byte followed by the value, right-justinedinfourbytes. 

The offset from the control section base is given as a 
constant representing the number of units of displace- 
ment from the control section base, at the resolution 
of the address of the item. That is, a word address 
would hove its corutant portion expressed as a count of 
the number of words offset from the base, while the 
constant portion of a byte address would be expressed 
OS the number of bytes offset from the base. 

The control section base value is accumulated by means 
of on Add Value of Declaration (see below) or Subtract 
Value of Declaration load item specifying the desired 
resolution and the declaration number of the control 
section base. The loader adjusts the base value to the 
specified address resolution before adding it to the cur- 
rent partial sum for the expression. 

In the case of an absolute address, on Add Absolute 
Section (see below) or Subtract Absolute Section con- 
trol byte must be included in the expression to identify 
the value as an address and to specify its resolution. 

3. An exterrxil definition or forward reference value is 
included in on expression by means of a load item add- 
ing or subtracting the appropriate declaration or forward 
reference value. If the value is an address, the reso- 
lution specified in the control byte is used to align the 
value before adding it to the current partial sum for the 
expression. If the value is a constant, no alignment is 
necessary. 

Expressions ore rtot evaluated by the loader until all required 
values are available. In evaluating on expression, the 
looder maintains a count of the number of values added or 
subtracted at each of the four possible resolutions. A sepa- 
rate counter is used for each resolution, and each counter 
is incremented or decremented by 1 whenever a volue of the 
corresponding resolution is odded to or subtracted from the 
loader's expression accumulator. The firtal occumulated sum 
is a constant, rather than on address value, if the final count 
in oil four counters is equal to 0. If the firwl count in one 
(and only one) of the four counters is equal to +1 or -1, the 



oeeumuloted sum is a "simple address" having the resohition 
of the nonzero counter. If more than one of the four counters 
have a nonzero final count, the accumulated sum is termed 
a "mixed-resolution expression" and is treated as a constant 
rather than an address. 

The resoktlon of a simple address may be altered by means 
of a Change Expression Resolution (see below) control byte. 
However, if the current partial sum is either a constont or 
o mixed-resolution value when the Change Expression Reso- 
lution control byte occurs, then the expression resolution 
is unaffected. 

Note that the expression for a program load origin or start- 
ing address must resolve to o simple address, and the single 
nonzero resolution counter must hove a final count of ■*■] 
when such expressions ore evaluated. 

[n converting a byte oddress to a word oddress, the two least 
significant bits of the address ore truncated. Thus, if the 
resulting word oddress is later changed back to byte resolu- 
tion, the referenced byte location will then be the first byte 
(byte 0) of the word. 

After on expression has been evaluated, its final value is 
associated with the appropriate load item. 

In the following diagrams of load item formats, RR refers to 
the address resolution code. The meaning of this code 
is given in the table below. 



RR 


Address Resolution 


00 
01 
10 
11 


Byte 

Halfword 
Word 
Doubleword 



The load items discussed in this appendix, "Expression 
Evaluation", moy appear only in expressions. 

Add Constant 



Byte 








Control byte | 











1 


1 
Byte 1 


2 3 4 5 


6 


7 


First byte of constant 





Byte 2 



Second byte of constont 
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Byte 3 



Third byte of constant 




Byte 4 



Fourth byte of constant 



This item causes the specified 4-byte constont to be added 
to the loader's expression occumulator. Negative constonts 
ore represented in two's complement form. 

Add Absolute Section 



Byte 










Control byte 








110 1 


R 


" 



1 



This item identifies the associated value (expression) as a 
positive absolute address. The address resolution code, RR, 
designates the desired resolution. 

Subtract Absolute Section 



Byte 












Control byte | 








1 1 1 





R 






1 



This item identifies the associated value (expression) as a 
negative absolute address. The oddress resolution code, 
RR, designates the desired resolution. 

Add Value of Declaration 



Byte 












Control byte 








1 





R 


R 



1 

Byte 1 



First byte of nome number 




Byte 2 



Second byte of nome number 



This item causes the value of the specified declaration to be 
added to the loader's expression occumulator. The address 
resolution code, RR, designates the desired resolution, and 
the name number refers to a previously declared definition 
none that is to be associated with the first location of the 
allocated section. 

One such item must appear in each expression for a reloca- 
table oddress occurring within o control section, adding the 
value of the specified control section declaration (i.e., 
adding the byte address of the first location of the control 
section). 

Add Volue of Forward Reference 



Byte 














Control byte | 










1 


1 


R 


R 



Byte 1 


1 




2 3 4 


5 


6 


7 




F 


rst 


byte of forword reference 


number 




1 


1 




Byte 2 



Second byte of forward reference number 



7 

This item causes the value of the specified forward reference 
to be added to the loader's expression accumulator. The 
address resolution code, RR, designates the desired resolu- 
tion, and the designated forward reference must not have 
been defined previously. 

Subtract Value of Declaration 



Byte 














Control byte 








1 


t 





R 


«l 



Byte 



First byte of name number 




Byte 2 



Second byte of name number' 



This item causes the value of the specified declaration to 
be subtracted from the loader's expression accumulator. 
The address resolution code, RR, designates the desired 
resolution, and the name number refers to a previously de- 
clared definition name thot is to be associated with the 
first location of the allocated section. 



If the module has fewer than 256 previously assigned name 
numbers, this byte is absent. 



If the module has fewer than 256 previously assigned name 
numbers, this byte is absent. 
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Subtract Value of Forwoid Reference 



Symbol Types 



ByteO 








Control byte 1 







1 1 1 R 


"1 


1 
Bytel 




2 3 4 5 6 


7 


F 


r»t 


byte of forward referetKe number 


1 


1 



Byte 2 






7 


Seconc 


byte of forward reference number 


1 


1 



This item causes the value of the specified forward reference 
to be subtrocted from the loader's expression accumulator. 
The address resolution code, RR, designates the desired reso- 
lution, and the designated forward reference must not hove 
been defined previously. 

Change Expression Resolution 

Byte 



Control byte 



1 



1 



12 3 4 5 6 7 

This item couses the oddress resolution in the expression to 
be chonged to that desigrrated by RR. 

Expression End 
Byte 



Control byte | 

















1 






1 2 3 4 5 6 7 

This item identifies the end of an expression (the value of 
which is contoirted in the loader's expression accumulator). 



FORMATION OF INTERNAL SYMBOL TABLES 

The three object code control bytes described below are re- 
quired to supply the information necessary in the formation 
of Interrtal Symbol Tables. 

In the following diagroms of load item fonnats. Type refers 
to the symbol types supplied by the object language and 
maintained in the symbol table. IR refers to the interral 
resolution code. Type and resolution are meaningful only 
when the value of a symbol is on address. In this case, it 
is highly likely that the processor krtows the type of value 
that is in the associated memory location, and the type field 
identifies it. The resolution field indicates the resolution 
of the location counter at the time the symbol was def irted. 
The following tables summarize the combinations of value 
and meaning. 



Type 


Meonii^ of 5-Bit Code 


00000 


Instruction 


00001 


Integer 


00010 


Short floating point 


00011 


Long floating point 


00110 


Hexadecimal (also for packed decimal) 


00111 


EBCDIC text (also for unpacked decimal) 


01001 


Integer array 


01010 


Short floating-point orroy 


01011 


Long floating-complex orroy 


01000 


Logical array 


10000 


Undefined symbol 



Internal Resolution 



IR 


Address Resolution 


000 
001 
010 

oil 


Byte 

Halfword 
Word 
Doubleword 



Type Information for External Symbol 
Byte 



Control byte 



1 



Byte 1 



Type field 



IR field 



J 



Byte 2 



Declaration number 



Byte 3 (if required) 



Declaration number (continued) 



This item provides type information for external symbols. 
The Type and IR fields are defined above . The declaration 
ruimber field consists of one or two bytes (depending on the 
current declaration count) which specifies the declaration 
number of the external definition. 

Type and EBCDIC for Internal Symbol •* 



ByteO 
















Control byte 














1 





1 
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Byte 1 






Type Field IR field 





Byte 2 


4 5 


7 




Length of name (EBCDIC choracters) 







Byte 3 




7 


First byte of name in EBCDIC 





Byte n 




7 


Last byte of name in EBCDIC 





Byte n 


+ 1 


7 


Expression defining value of internal symbol 





LOADING 



Load Absolute 



This item supplies type and EBCDIC for an internal symbol . The 
I ood items for Type and IR are as above . Length of name speci- 
fies the length of the EBCDIC name in characters . The name, in 
EBCDIC, isspecified in the required number of bytes, followed 
by a byte containing the expression defining the internal symbol 

EBCDIC for an Undefined Symbol 
Byte 



Control byte 










1 1 1 1 



Byte 1 


1 




2 3 4 5 6 7 


Length of name (EBCDIC characters) 





Byte 2 






7 


First byte of name in EBCDIC 





Byte n 






7 


Last byte of name in EBCDIC 





Byte n 


+ 1 




7 


First byte 


of 


symbol ossociated forward reference number | 


1 



(.- 



This item is used to associate a symbol with a forward reference. 
The length of nameondnamein EBCDIC are the same as in the 
above item. The last two bytes specify the forward reference 
number with which the above symbol is to be associated. 



ByteO 










Control byte 






1 


CONN 


N 


N 


1 

Byte 1 


2 3 4 5 


6 


7 


First byte to be loaded 





ByteNNNN 


• 




7 


Last byte to be loaded 





This item causes the next NNNN bytes to be loaded abso- 
lutely (NNNN is expressed in natural binary form, except 
that 0000 is interpreted as 16 rather than 0). The load loca- 
tion counter is advanced appropriately. 

Lood Relocatoble (Long Form) 

Byte 



Control byte | 





1 


1 Q C 


R 


1 



Byte 1 


1 


2 3 4 5 


6 


7 


First byte of name number 





Byte 2 








7 


Second byte of name number' 





This item causes a 4-byte word (immediately following this 
load item) to be loaded, and relocates the address field 
according to the address resolution code, RR. Control bit 
C designates whether relocotion is to be relotive to a for- 
ward reference (C = 1) or relative to a declaration (C = 0). 
Control bit Q designates whether a 1-byte (Q = 1) or a 
2-byte (Q = 0) name number follows the control byte of 
this load item. 

If relocation is to be relative to a forward reference, the 
forward reference must not have been def^rted previously. 
When this lood item is encountered by the loader, the load 
location counter con be aligned with a word boundary by 
loading the appropriate number of bytes containing oil zeros 
(e.g., by means of a load absolute item). 



If the module has fewer than 256 previously assigned name 
numbers, this byte is absent. 
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Load Relocotable (Short Form) 



ByteO 
















Control byte 








1 C 


D 


D D 


D 


D 






1 



Thii item causes a 4-4>yte word (immediately following this 
load item) to be loaded, and relocates the address field 
(word resolution). Control bit C designates whether reloca- 
tion is to be relative to a forward reference (C = 1) or rela- 
tive to o declaration (C = OX The binary number DODDDO 
is the forward reference number or declaration number by 
which relocation is to be accomplished. 

If relocation is to be relative to a Forward reference, the 
forward reference must not have been defined previously. 
When this load item is encountered by the loader, the load 
location counter must be on a word boundary ^e "Load 
Relocatable (Long Form)", obove). 



Repeat Load 
Byte 



Control byte I 








11 


1 


1 



Byte 1 


1 


2 3 4 5 


6 


7 


First byte of repeat count 





B/te2 




Field length, in bits (L) 





This item defines a value (expression) to be odded to a field 
in previously loaded information. The field is of length L 
(1 < L £ 255) and terminates in bit position T, where: 

T = current load bit position -256 +K. 



The field location constant, K, may have any value from 
1 to 255. The expression to be odded to the specified field 
is the one immediately following byte 2 of this load item. 



MISCELLANEOUS LOAD ITEMS 



Podding 
ByteO 



Control byte ] 




















" 



Padding bytes are ignored b/ the loader. The object lan- 
guage allows paddirtg as o convenience for processors. 



Module End 



Byte 2 



SecoTKi byte of repeat count 



Byte 










Control byte | 








1 


1 


' 



This item causes the loader to repeat 0<e., perform) the 
subsequent load item, a specified number of times. The re- 
peat count must be greater than 0, and the load item to 
be repeated must follow the repeat load item immediately. 



Byte 1 














Severity level 1 











E 


E 


E 


E| 



Define Field 
Byte 



Control byte 1 








11 


'1 



Byte 1 


1 


2 3 4 5 6 


7 


Field location constont, in bits (K) 





This item identifies the end of the object module. The 
value EEEE is the error severity level assigned to the mod- 
ule by the processor. 



OBJECT MODULE EXAMPLE 

The following example shows the correspondence between 
the statements of a Symbol source program and the string 
of object bytes output for that program by the assembler. 
The program, listed below, has no significance other than 
illustrating typical object code sequences. 
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Example 



1 










DEF 


AA,BB,CC 


CC IS UNDEFINED BUT CAUSES 
NO ERROR 


2 










REF 


RZ,RTN 


EXTERNAL REFERENCES DECLARED 


3 


00000 






ALPHA 


CSECT 




DEFINE CONTROL SECTION 
ALPHA 


4 


000C8 








ORG 


200 


DEFINE ORIGIN 


5 


O0OC8 


22000000 


N 


AA 


LI,CNT 





DEFINES EXTERNAL AA; CNT IS 
A FWDREF 


6 


000C9 


32000000 


N 




LW,R 


RZ f R IS A FORWARD REFERENCE; 


7 








* 




• 


RZ IS AN EXTERNAL REFERENCE, 


8 








* 






AS DECLARED IN LINE 2 


9 


OOOCA 


50000000 


N 


RPT 


AH,R 


KON 


' DEFINES RPT; R AND KON ARE 


10 








* 




< 


FORWARD REFERENCES 


11 


OOOCB 


69200000 


F 




BCS,2 


BB 


BE IS AN EXTERNAL DEFINITION 


12 








* 




i 


USED AS A FORWARD REFERENCE 


13 


OOOCC 


20000001 


N 




AI,CNT 


1 


CNT IS A FORWARD REFERENCE 


14 


OOOCD 


680000CA 






B 


RPT 


RPT IS A BACKWARD REFERENCE 



15 OOOCE 

16 OOOCF 
17 

18 

19 OOODO 

20 

21 

22 000C8 



68000000 X 



0001 



B 



RTN 



00000003 



00000004 



KON 



CNT 



224FFFFF A BB 



DATA, 2 1 

EQU 3 

EQU 4 

LI, CNT -1 



END 



AA 



RTN IS AN EXTERNAL REFERENCE 
DEFINES KON 
DEFINES R 
DEFINES CNT 

'defines EXTERNAL BB THAT HAS 
ALSO BEEN USED AS A FORWARD 
REFERENCE 
END OF PROGRAM 
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CONTROL BYTES On Binory) 
Begin Record Recwd number: 



1 



00111100 
00000000 

onooon 

01101100 



00000011 



00000011 



00000011 



00000101 



00000101 



00001010 

00000001 
00100000 

00000010 . 



00000100 
00000001 
00100000 

0O000010 



01000100 
00000111 

00100110 
00000010 



Record type: not lost. Mode binary. Format: object language. 
Sequence number 
Checksum: 99 
Record size: 108 



03020101 (hexadecimal code comprising the toad item) 
Declare external definition name (2 bytes) Nome: AA 

03020202 

Declare external definition name (2 bytes) Name: 86 

03020303 

Declare external definition name (2 bytes) Nome: CC 

0502D9E9 

Declare primary reference name (2 b/tes) Nome RZ 

0503D9E3D5 

Declare primary reference name (3 butes) Name: RTN 

OAO 10 100000320200002 

Define externol definition 

Number 1 

Add constant: 800 X'320' 

Add value of declaration (b/te resolution) 

Number 

Expression end 

040100000320200002 
Origin 

Add constant: 800 X'320' 
' Add value of declaration (b/te resolution) 
Number 
Expression end 

4422000000 

Load absolute the following 4 bytes: X'22000000' 

07EB0426000002 

Define field 

Field location constant: 235 bits 

Field length: 4 bits 

Add the following expression to the above field: 

Add value of forward reference (word resolution) 

Number 

Expression end 



Declaration number: 1 
Declaration number: 2 
Declaration number: 3 
Declaration number: A 
Declaration number: 5 



1 



Record control 
information not 
part of load item 



Source Line 1 



Source Line 2 



Source Line 5 



Source Line 4 



Source Line 5 



No object code is generated for source lines 3 (define control section) or 4 (dePine origin) at the time they are encountered. 
The control section is declared at the end of the program after Symbol has determined the number of bytes the progrom requires. 
The origin definition is generated prior to the first instruction. 
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8432000000 

10000100 Load relocatable (shorf form). Relocate address field (word resoiufion) 
Relative to declaration number 4 

The following 4 bytes: X'320OOO0O' 

07EB0426000602 
00000111 Define field 

Field location constant: 235 bits 

Field length; 4 bits 

Add the following expression to the above field: 
00100110 Add value of forward reference (word resolution) 

Number 6 
00000010 Expression end 

CC 50000000 
11001100 Load relocatable (short form). Relocote address field (word resolution) 

Relative to forward reference number 12 
The following 4 bytes: X' 50000000" 

07EB0426000602 
00000111 Define field 

Field location constant: 235 bits 

Field length: 4 bits 

Add the following expression to the obove field: 
00100110 Add value of forward reference (word resolution) 

Number 6 
00000010 Expression end 

D269200000 
11010010 Load relocotable (short form). Relocate oddress field (word resolution) 

Relative to forward reference number 18 
The following 4 bytes: X'69200000' 

4420000001 
01000100 Load absolute the following 4 bytes: X'2000000r 

07EB0426000002 
00000111 Define field 

Field location constant: 235 bits 

Field length: 4 bits 

Add the following expression to the above field: 
00100110 Add value of forward reference (word resolution) 

Number 
00000010 Expression end 

80680000CA 
10000000 Load relocatable (short form). Relocate address field (word resolution) 

Relative to declaration number 
The following 4 bytes: X'680000CA' 

8568000000 

10000101 Load relocatable (short form). Relocate address field (word resolution) 
Relative to declaration number 5 

The following 4 bytes: X'68000000' 

08 
00001000 Define forward reference (continued in record 1) 



Source Line 6 



Source Line 9 



1 



Source Line 1 1 



Source Line 13 



Source Line 14 



Source Line 15 



Source Line 16 



\ 
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Begin Record Record rtumber I 



0001 noo 

00000001 
11101100 
01010001 



Record type: lost. Mode: binary. Format: object lortguoge. 
Sequence number 1 
Checksum: 236 
Record size: 8) 



1 



Record Control 
Information 



- ) 



OOOC010000033C200002 (continued from record 0) 

Number 12 
00000001 Add constant: 828 X'33C' 

00100000 Add value of declaration (b/te resolution) 

Number 
00000010 Expression end 

42001 
01000010 Load absolute the following 2 bytes: X'OOOT 

080006010000000302 
00001000 Define forward reference 

Number 6 
00000001 Add constant: 3 X'3' 

00000010 Expression end 

080000010000000402 
00001000 Define forward reference 

Number 
00000001 Add constant: 4 X'4' 

00000010 Expression end 

0F00024100 
00001111 Repeat load 

Repeat count: 2 
01000001 Load absolute the following 1 bytes: X'OO' 

0800 1 20 100000340200002 
00001000 Define forward reference 

Number 18 
00000001 Add constant: 832 X'340' 

Add value of declaration (byte resolution) 

Number 
00000010 Expression end 

OA020 100000340200002 
00001010 Define external definition 

Number 2 
00000001 Add constont: 832 X'340' 

00100000 Add value of declaration (byte resolution) 

Number 
00000010 Expression end 

44224FFFFF 
01000100 Load absolute the following 4 bytes: X'224FFFFF' 

ODO 100000320200002 
00001101 Define start 

0000000 1 Add constant: 800 X'320' 

00100000 Add value of declaration (byte resolution) 

Number 
00000010 Expression end 



Source Line 16 



Soured Line 17 



1 



Source Line 18 



Advance to Word 
Boundary 



Source Line 19 



Source Lir>e 22 
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0B00O344 
CX)0010n Declare standard control section declaration number: 

Access code: Full occess. Size 836 X'344' 

OEOO 
00001 no Module end 

Severity level: X'O' 

A table summarizing control b/te codes for object language load items is given below. 



Object Code Control Byte 
























































c 











I 























1 



















1 























1 






















1 


1 



















1 


1 

































































1 





















1 


















1 





















1 





















1 


1 



















1 


1 


































































1 






















1 















1 


1 


1 






















R 


R 
















1 


R 


R 













1 





R 


R 













1 


1 


R 


R 










1 








R 


R 










1 





I 


R 


R 










1 


1 





R 


R 





1 








N 


N 


N 


N 





1 





1 


Q 


c 


R 


R 


1 


c 


D 


D 


D 


D 


D 


D 



Type of Load Item 



Padding 

Add constant 

Expression end 

Declare external definition name 

Origin 

Declare primary reference name 

Declare secondary reference name 

Define field 

Define forward reference 

Declare dummy section 

Define external definition 

Declare standard control section 

Declare nonstandard control section 

Define start 

AAodule end 

Repeat load 

Define forward reference and hold 

Provide type information for externol symbol 

Provide type and EBCDIC for internal symbol 

EBCDIC and forward reference number for undefined symbol 

Declare page-bounded control section 

Add value of decloratlon 

Add value of forward reference 

Subtract value of declaration 

Subtract value of forward reference 

Change expression resolution 

Add absolute section 

Subtract absolute section 

Load absolute 

Load relocatable (long fonm) 

Load relocatable (short form) 



J i 



( _ 
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APPENDIX C. XEROX STANDARD COMPRESSED LANGUAGE 



The Xerox Standard Compressed Language is used to rep- 
resent source EBCDIC information in a highly compressed 
form. 

Several Xerox processors will accept this form as input or 
output, will accept updates to the compressed input, and 
will regenerate source when requested. No infonnation is 
destroyed in the compression or decompression. 

Records may not exceed 106 bytes in length. Compressed 
records ore punched in the binary mode when represented on 
card media. Therefore, on cards, columns 73 through 80 
are not used and are available for comment or identification 
information. This form of compressed language should not 
be output to "compressed" files since the I/O compression 
may cause loss of data. 

The first four bytes ofeach record are for checking puiposes. 
They are as follows: 

Byte 1 identification (OOL 11000). L=1 for each 
record except the lost record, in which case 
L =0. 

Byte 2 Sequence number (0 to 255 and recycles). 

Byte 3 Checksum, which is the least significant 

eight bits of the sum of all bytes in the rec- 
ord except the checksum byte itself. Carries 
out of the most significant bit ore ignored. 
If the checksum byte is all 1's, do not 
checksum the record. 

Byte 4 Number of bytes comprising the record, in- 
cluding the checking bytes (^106). 

The rest of the record consists of a string of six-bit and 
eight^it items. Any partial item at the end of a record 
is ignored. 

The following six-bit items (decimal number assigned) com- 
prise the string control: 



Six-Bit 




Decimal 




Item 


Function 





Ignore. 


1 


Not currently assigned. 


2 


End of line. 


3 


End of file. 


4 


Use eight-bit character which follows. 


5 


Use n + 1 blanks, next six-bit item is n. 


6 


Use n + 65 blanks, next six-i)it item is n 


7 


Blank. 


8 





9 


1 


10 


2 



Six -Bit 




Decimal 




Item 


Function 


11 


3 


12 


4 


13 


5 


14 


6 


15 


7 


16 


e 


17 


9 


18 


A 


19 


6 


20 


C 


21 


D 


22 


E 


23 


F 


24 


G 


25 


H 


26 


I 


27 


J 


28 


K 


29 


L 


30 


M 


31 


N 


32 


O 


33 


P 


34 


Q 


35 


R 


36 


S 


37 


T 


38 


U 


39 


V 


40 


w 


41 


X 


42 


Y 


43 


z 


44 


, 


45 


< 


46 


( 


47 


+ 


48 


1 


49 


& 


50 


$ 


51 


* 


52 


) 


53 


t 


54 


—1 


55 


- 


56 


/e 


57 


/ 


58 


% 


59 


l_) 


60 


> 


61 


* 


62 


4 


63 


= 
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APPENDIX D. SYSTEM OVERIAY ENTRY POINTS 



(._ 



Table D-1 is a list of all entry points into the various overlays, the overlay containing each entry point, and o brief 
description of the function of the entry point. 



Table D-1 . System Overlay Entry Points 



(^ 



( 



Entry Point Name 


Overlay Name 


Description 


:*ALTENT 


DBDW 


Enter debug from alternate PSD 




i'ASSGN 


DBC2 


Process debug assign command 




r't'BRNCH 


DBS3 


Branch into user program from debug 




:#CALENT 


DBDW 


Enter debug from CAL exit 




:*C0NSG 


DBC2 


Process debug connect seg. xommand 




:#DMPRET 


DBCl 


Return from single dump request 




:*DODMP 


DBC3 


Do a dump request 




:#DOINIT 


DBS2 


Entry for initialization 




:'DORET 


DBS2 


Prepare for user return 




i^'DOSNAP 


DBS2 


Entry for snap execution 




:#DOTRAP 


DBS2 


Entry after trap 




:#D0VAL 


DBC3 


Do evaluation of name 




:#DUMP 


DBCl 


Process debug dump command 




:#EXCT 


DBS3 


Process debug exec, control command 




r'iNSRT 


DBCl 


Process debug insert command 




•.'LOOK 


DBCl 


Process debug look command 




t'MODFY 


DBC3 


Process debug modify command 




:*NAME 


DBCl 


Process debug name command 




:* PATCH 


DBC3 


Process debug patch command 




:*QUIT 


DBS3 


Process debug quit command 




:*REMOV 


DBC2 


Process debug remove commarKJ 




:*RERCHK 


DBC3 


Process read error check 


■<* 


:'SCAN 


DBSl 


Scan the input command 




:*SCNDR 


DBC3 


Scan a dump request 




:'SCNLCX 


DBS3 


Scan location forms 
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Te^lc D-I.''Sytt«m Overloy Entry Pointo (cont.) 



Entry Point Nome 


Overlay Name 


DescripKon 


:'SCNLWX 


DBS3 


Scan for bcoHon or word 


:'SCNWDX 


DBS3 


Scan ford fenns 


:'SNAP 


DBCl 


PiDceu debug map oommand 


t'SNAPIT 


DBC1 


Execute tnap command 


/TINIT 


DBC2 


Trap initialization processing 


:'TRAPEX 


DBS2 


Exit from debug trap processing 


i'TRAPIN 


DBC2 


Process trap control 


t'WKSQZ 


DBS1 


Squeeze unused space from debug work space 


ABEX 


ABEX 


Process abort and exit CALs for background ', 


ABORT 


TERM 


Process all abort CALs 


ACTV 


lOEX 


Process activate CALs 


ALLOT 


ALLOT 


Process allot CALs 


ANALYSE 


TEXl 


Analyse errore of TEX 


ARM 


ARM 


Process connect,ann,disconnect,ditann CALs 


ASSIGN 


ASSIGN 


Process assign CAL 


BKGSEQ 


ABEX 


Initiate background sequencing ('C from IDLE) 


BKLASSN 


BKL1 


Does background DCB assignments 


BKL1 


BKLl 


Perform background loading functions 


BREAK 


SNAM 


Process INT CALs 


CALLQ 




Sub to CALL QUEUE and wait for \/0 completion 


CALLQP 




Entry to CALLQ with preset priority 


CFUPDK 


CLOSEX 


Update directory entry for altered file and write it to 
disk 


CHECK 


CHECK 


Process CHECK CAb 


CHECKA 


CHECK 


Second-CHECK routine 


CHKBAL 


CHECK 


Entry to CHECK via BAL 


CHKBAIA 


CHECK 


Alternate internal entry to CHECK, via a BAt* 


CKD 


CKD 


Crash dump from CK area 


CKD2 


CKD2 


Crash dump from CK area, continued 


CK ENACT 


TMTYC 


Get and test end-action 



^} 
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Table D-1 . System Overlay Entry foints (cont.) 



Entry Point Name 


Overlay Name 


Description 


CKENACTS 


TMTYC 


Get and test end-action in standard FPT 




C K ENACT 1 


TMTYC 


Test and convert end-action parameter 




CKENACT2 


TMTYC 


Same as CKENACTl (TMTYC) 




CKINTADR 


TMTYC 


Test and convert interrupt address 




CKINTIAB 


TMTYC 


Test and convert interrupt label 




CLOSE 


READWR 


Process CLOSE CALs 




CLOSEDCB 


READWR 


Entry to close via BAL 




CLOSEX 


CLOSEX 


Routine to close DCBs 




CLOSRFIL 


CLOSEX 


Routine to close a DCB assigned to a RAD file 




COCIO 


COCIO 


Queue equivalent for COC l/O 




COCRIP 


COCIO 


RIPOFF equivalent for COC \/0 




COCSRDV 


COCIO 


SERDEV equivalent for COC I/O 




COCTIME 


COCIO 


Five second line checking routine 




COOP 


GETNRT 


Intercept BKG l/O requests to symbiont dedicated 
devices 




CORRES 


DEVI 


Process correspondence CALs 




CRD 


CRD 


Crash dump from SE op-label 




CRFIL 


CLOSEX 


Release blocking buffer and RFT entry for closing a 


file 


CRS 


CRS 


Crash save to SE op-labei from CK area 




CRS2 


CRS2 


Continuation of CRS 




CSEARCH 


DBS2 


Debug scan routine to search for commands 




DBDW 


DBDW 


Start of data/workspace for debug 




DBKG 


ABEX 


Background dump driver 




DCBBUSY 


READWR 


SUB to check for an l/O request to a busy DCB 




DEACTV 


lOEX 


Process deactivate CALs 




DEBUG 


DBDW 


Debug CAL processor 




DELETE 


DELETE 


Process DELETE CALs 




DELFPT 


CHECK 


Same as CHECK(SIGNAL) entry point 




DEO 


ENQ 


Process DEQUEUE CALs 




DEVI 


DEVI 


Process 'set' portion of device CALs 
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Table D-1. S/stem Overlay Entry Poinh (cont.) 



Entry Point Name 


Overlay Name 


Description 


DEVN 


DEVI 


Process 'get' portion of device CALs 


DFGD 


DUMP 


CT return to CT dump after break 


DFGDBAL 


DUMP 


DUMP break to check for other CT work 


DFM 


DEVI 


Process device file mode CALs 


DISARM 


ARM 


Some entry point as ARM(ARM) 


DRC 


DEVI 


Process device DIR. ReconJ format CALs 


DUMP 


DUMP 


Performs a memory DUMP 


DVF 


DEVI 


Process device vertical format CALs 


EMARECB 


TMGETP 


Sub. to chain on ECB to the R-task 


EMARECBX 


TMGETP 


Sob. to chain an ECB te the R-task in reverse priority 


EMBLDECB 


TMGETP 


Sub. to build on ECB from a standard FPT 


EMDATAI 


TMGETP 


Sub. to process a data area into on ECB 


EMDATAO 


TMGETP 


Sub. to remove a data area to users receiving areo 


EMGETECB 


TMTYC 


Sub. to create a new ECB linked to the current task 


EMGETEM 


TMTYC 


Sub. to create a new ECB linked to any task 


EMGETFPT 


TMTYC 


Sub. to get an original FPT address 


EMSETR3 


CHECK 


Set R3 to an FPT addr based on FPT addr in on ECB 


EMSETR3A 


CHECK 


Set R3 Id an FPT oddr based on FPT addr in R3 


EMWAIT 


TMTYC 


Sub. to control wait states 


ENQ 


ENQ 


Process ENQUEUE CAb 


ENQABNM 


ENQ 


Abnormal condition sub. for ENQUEUE ECBs 


ENQCHK 


ENQ 


Sub. to check ENQUEUE ECBs 


ERRSEND 


LOG 


Routine to put an operator message into the Error log 


ESU 


ESU 


Process error summary key-in 


EXTM 


EXTM 


Process exterminate CALs 


FGLRADLM 


FGL2 


Abort primary load module initiation 


FGLMEMCK 


FGL3 


Check availability of unmapped memory region 


FGLMSG 


FGLl 


Output a message for the primary loader 


FGLOKLM 


FGL2 


Complete primory load module initiation 
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Table D-1 . System Overlay Entry Points (cent.) 



Entry Point Name 


Overlay Name 


Description • 


FGLl 


FGLl 


Primary program release 


FGL2 


FGL2 


Primary program bad (initialize tables) 


FGL3 


FGL3 


Primary program bod (read in root and PUBLIBS) 


FINDBB 


FINDBB 


Get a blocking buffer 


FINDDIR 


FINDBB 


FIND (or allot) extent O of a file 


FINDDIRX 


FINDBB 


FIND (or allot) extent N of a file 


FMBLDECB 


GETNRT 


Build an I/O ECB 


FMCHECK 


CHECK 


Process I/O CHECK CALs 


FMCKWP 


RWFILE 


Check for write protection violations 


FMCKl 


CHECK 


Internal entry to FMCHECK 


FMCK2 


CHECK 


Internal entry to FMCHECK 


FMCK3 


CHECK 


Internal entry to FMCHECK 


FMDELETE 


DELETE 


DELETE file (extent) entries from permanent directory 


FMGETEXT 


RWEXT 


Get next extent of an extended file 


FMJCL 


TTJOB 


Clean up RFT and DCT entries at job termination 


FMMASTX 


RWFILE 


Determine MASTD index for an area 


FMOPL2AD 


GETNRT 


Get caller's OPLBS2 table address 


FMTCL 


TT 


Cleanup files for a terminating task 


FPTBSY 


READWR 


Check for an I/O request to a busy FPT 


GENCHARS 


PRINT 


PRINT expanded text for break pages 


GETANAME 


ESU 


Subroutine to get account name 


GETDCBAD 


GETNRT 


Get DCB address from FPT 


GETDCTX 


GETNRT 


Get device index from DCB 


GETIOID 


KEYSCN 


Scan an l/O designator (FILE, OPLABEL, or DEVICE) 


GETNRT 


GETNRT 


Internal entry to read/write processing 


GETOPT 




Get options for key-ins, in KEY3 - KEY7 "* 


GblllME 


SIGNAL 


Process GETTIME CAb 


HOURLOG 


LOG 


Log hourly timestamp 


IBBPARAM 


RWBFIL 


Sub to increment the file position in a blocked file 
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Table D-1. Syctcm Ovwloy Entry Poinis (oont.) 



Entry Point Name 


Overlay Name 


Description 


INIT 




Perform boot-time initialization of CPR 


INITLOG 


LOG 


Routine to initialize the error log file when DT keyin 
is done 


INSDBUF 


SDBUF 


Input side buffering logic 


lOEX 


lOEX 


Process all lOEXCALs 


IPLMM 


IPIMM 


Do memory management initialization at boot time 


IPLSYM 


IPLSYM 


Initialize symbiont areas and job number 


JMTENQ 


nJOB 


Clean up job level ENQs 


JMTERM 


TTJOB 


Destioy a job when bst task has tenninated 


JOBDLTE 


JOB2 


Sub. to delete a job's files in an area 


JOBDLTEA 


JOB2 


Sub. to selectively delete a job's files in an area 


JOBMSG 


JOB2 


Sub. to output messages to OC device 


JOBSCAN 


JOBl 


Validate a JOB card for symbiont input 


JOBl 


JOBl 


Process a M:JOB CAL, Part 1 


JOB2 


JOB2 


Process a MJOB CAL, Part 2 


JSCAN 


JOBl 


Validate and fbmat a JOB card 


JTRAP 


TRAPS 


Process job trap CAL 


KEYl 


KEYl 


Decode key-in keyword, branch to proper overlay 
for processing 


KEY1A04 


KEYl 


Process key-err message typeouts 


KEY2 


KEY2 


Process key-ins in KEY2 overkiy 


KEY3 


KEY3 


Process key-ins in KEY3 overloy 


KEY4 


KEY4 


Process key-ins in KEY4 overlay 


KEYS 


KEYS 


Process key-ins in KEYS overlay 


KEY6 


KEY6 


Process key-ins in KEY6 overkiy 


KEY7 


KEY7 


Process key-ins in KEY7 overkiy 


KJOB 


EXTM 


Process KJOB CALs « 


LOAD 




Entry to JCP bader 


LOADACI 


MMROOT 


Sub. to load ACI for a task 


LOADMAP 


MMROOT 


Sub. to load MAP and ACE for o task 



- I 
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Table D-1 . System Overlay Entry Point* (cent.) 



Entry Point Name 


Overlay Name 


Description 


LOG 


LOG 


Move error log records from log stack to ER OP label 


MEDIA 


MEDIA 


Resident copy loop code and DCB's, FPT's 


MEDIACAL 


SNAM 


Medio CAL processor 


MEDIATSK 


MEDl 


Start of media task 


MEDRLOOP 


MEDIA 


Start of main copy loop in resident module 


MEDRLOPA 


MEDIA 


Alt. entry to main loop for 'ALL' copies 


MEDR900 


MEDIA 


Common CAL error routine (do nothing routine) 


MEDOEXIT 


MEDl 


Entry into MEDl module from resident copy loop if 
no errors 


MEDO90 


MEDl 


Error routine, reading input file 


MED094 


MEDl 


Error routine, writing output file 


MED099 


MEDl 


Error routine, DCB abmrmal and reading shared files 


MED1 


MEDl 


Part 1 of media task; request selection and initiation 


MED2 


MED2< 


Part 2 of media task; post processing clean-up 


MED600 


MED2 


Entry to Part 2 of media task 


MED800 


MED2 


Convert medio ID number to EBCDIC in output line 


MED810 


MED2 


Acquire a device for media use 


MED820 


MED2 


Copy preomple (printer break page print) 


MED830 


MED2 


Copy postamble (printer cleon-up) 


MED840 


MED2 


Copy postamble (tape positioning) 


MED880 


MED2 


Wait routine for device manual, symbiont device 
conflict 


MMABNM 


MM05 


Sub. to process abnormal ECB exits 


MMACT 


MMOl 


Process activate CALs 


MMCAL 


MMOl 


Process all memory management CALs 


MMCHECK 


MM04 


Sub. to check memory management ECBs 


MMDEACT 


MM02 


Process deoctivote CALs ^ 


MM ERASE 


MM02 


Process erase CALs 


MM EX EC 


MM04 


Memory monagement executive task 


MMFETCH 


MMROOT 


Sub. to fetch one word from any real address 
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TobbD-l. Syitwn Ovarloy Entry Point (cont.) 



Entry feint Nome 


Overioy Name 


Detcrtptlon 


MMFMP 


MMROOT 


Sub. Id find a memory partition 


MMFOV 


MM01 


Sub. to find the OVLOAD entry for a segment 


MMGETP 


MM02 


Process GETPAGECALj 


MMGJRP 


MM03 


Subroutine to get job reserved pages 


MMGP 


MM01 


Sub. to get pages for a segment 


MM GPRS 


MM03 


Sub. to get preferred partition pages 


MMGSTM 


MMROOT 


Sub. to get one page of real memory 


MMGTRP 


MM03 


Sub. to get task reserved pages 


MMICHK 


MM04 


Internal entry into MMCHECK 


MMLOCK 


MM06 


Process LOCK CALs 


MMMOVE 


MMROOT 


Move contents of a real page to another real page 


MMOMFPP 


MMROOT 


Gill overlay manager to release pages 


MMPOST 


MM04 


Sub. to post a memory management ECB 


MMRDS 


MM01 


Reset disp skip flag and RLS exc lu . use of a SD 


MMRECB 


MM04 


Sub. to create a memory management ECB 


MMRELP 


MM02 


Process RELPAGE CALs 


MMRELS 


MM02 


Sub. to clean up mapped task at temiination 


MM RE LSD 


MM02 


Sub. to free up SD space at termirration 


MMRFILE 


MM05 


Sub. to get roll out file space 


MMRILW 


MMROOT 


Sub. to start roll in of a long wait task 


MMRISEG 


MM04 


Sub. to request roll-in of a segment 


MMRJRP 


MM03 


Sub. to release job reserved pages 


MMROLL 


MM04 


Sub. to request memory pages from the memory exec 


MMROLLIN 


MM05 


Sub. to roll in a segment 


MMROOT 


MMROOT 


Context block for memory management 


MM ROUT 


MM05 


Sub. to roll out a segment ^ 


MMRP 


MM02 


•<* 
Sub. to release pages in a SD 


MMRPPS 


MM03 


Sub. to release preferred partition pages 


MMRPPSI 


MM03 


Internal entry into sub. MMRPPS 
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Table D-1 . System Overlay Entry Point (cont.) 


Entry Point Name 


Overlay Nome 


Description 


MMRPREF 


MM06 


Sub. to recover preferred partitions pages 


MMRREAD 


MM05 


Sub. to read a segment from fbe roll out file 


MMRRFILE 


MM05 


Sub. to release roll out file space 


MMRSTM 


MMROOT 


Sub. to release one page of real memory 


MMRTRP 


MM03 


Sub. to release task reserved pages 


MMRWRITE 


MM05 


Sub . to write a segment to the rol 1 out f i le 


MM SAC 


MMOl 


Sub. to set access codes 


MMSDS 


MMOl 


Set dlsp skip flog and wait for exclu. use of a SD 


MMSEGCK 


MMOl 


Sub. to verify a segment number 


MMSETVPN 


MMOl 


Sob. to generate virtual page number arguments 


MMSTART 


MMOl 


Sub. to start the memory management executive 


MMSTOP 


MM04 


Sub. to stop the memory management executive 


MMSTORE 


MMROOT 


Sub. to store one word into any real address 


MMSWAP 


MMROOT 


Memory management swap control 


MMSWLK 


MM03 


Sub. to set write locks 


MMTJOB 


MM02 


Sub. to do job level cleanup at temiination 


MMTPRIM 


MM03 


Sub. to free pages acquired by a primary task 


MMTSEC 


MM02 


Sub. to releose ACI and AST space at termination 


MMUNLOCK 


MM06 


Process unbck CALs 


MMWPN 


MMOl 


Sub. to verify a virtual page number 


MODIFY 


EXTM 


Same entry as status 


OFFVERBG 


TEXl 


Construct OFF message verboge 


ONOFFMSG 


TEX2 


Write out OFF messages 


OPEN 


READWR 


Process OPEN CALs 


OPENDCB 


READWR 


Routine to open a DCB 


OPENX 


OPENX 


Internal entry to OPENDCB -» 


©SEARCH 


DBS2 


Debug scon routine to search for machine operations 


OUTSDBUF 


SDBUF 


Output side buffering k>gic 


PFIL 


REWIND 


Process all PFIL CAU 
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Table 0-1 . Sjrstam Ovarla/ Entry Poinf (cont.) 



Entry Point Name 


Overlay Nome 


Description 


PFILDEV 


REWDEV 


Position file on tope devices 


PINIT 


PINIT 


Process INH CAb 


PINTABNM 


PINIT 


Sub. to process abnormal ECB exits 


PLOl 


PLOl 


Routine processes oil PUBUBS 


PMD 


ABEX 


Dispatch BKGD to dump itself 


POLL 


SIGNAL 


Process all POLLCALs 


POLLABNM 


SIGNAL 


Routine to process POLL ECB abnonnal conditions 


POLLCHK 


SIGNAL 


Routine to process checks on POLL services 


PPOST 


SIGNAL 


Process POST CALs 


PRECDEV 


REWDEV 


Position records on tape devices 


PRECORD 


REWIND 


Process PRECORD CALs 


PREFMODE 


MM06 


Process PREFMODE CALs 


PRINT 


PRINT 


Process PRINT CALs 


PROMPT 


DEVI 


Process set PROMPT character CALs 


PUBUB 


PLOl 


Same as PLO 1 


R BLOCK 


RWBFIL 


Sub. to read a block into a bbcking buffer 


RCCUPF 


SYM5 


Clean up previous job's input files for the COOP 


RCCUPJ 


SYMS 


Clean up previous job's input files for the COOP, 
Part 2 


RCEXU 


SYM3 


Process EXU command in the input COOP 


RCFEOD 


SYM3 


Process EOD command in the input COOP 


RCGETF 


SYM3 


Sub. to get next file for the input COOP 


RCJOB 


SYMS 


Sub. to process a JOB cord in the input COOP 


RCOOP 


SYM4 


Process Input requests to a symbiont dedicated device 


RE^DDIR 


FINDBB 


Sub. to read a directory sector 


READWR 


READWR 


Process Read/Write CALs 


RECALARM 


CRS 


ALARM Receiver CAL 


RELADBUF 


RWBFIL 


Release a Blocking Buffer 


RETEUNG 


TEL2 




REWDEV 


REWDEV 


Process REWIND CALs on devices 
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Table D-1 . System Overlay Entiy Point (oont.) 



{_ 



(_ 



Entry Point Nome 


Overlay Name 


Description 


REWIND 


REWIND 


Process REWIND CALs 


RLS 


EXTM 


Process RELEASE CALs 


RUN 


RUN 


Process oil RUN CAb 


RWBFIL 


RWBFIL 


Reac^AVrite blocked or compressed RAD files 


RWDEV 


RWDEV 


Process Read/Write to devices 


RWEXTDIR 


RWEXT 


Get next extent while processing a direct access 
ReadAVrite 


RWEXTSEQ 


RWEXT 


Get next extent while processing a sequential 
ReadAVrite 


RWFILE 


RWFILE 


ReodAVrite processor for disk file 


SCAN 


KEYSCN 


Common scon routine for all key-in routines 


SCEMPTY 


SCNEXT 


SCHED sub. to find next empty SCHED file entry 


SCFIND 


SCNEXT 


SCHED sub. to find match SCHED file entry 


SCHED 


SCHED 


Control task entrance to periodic scheduler 


SCHEDC 


RUN 


CAL processing for periodic scheduling 


SCMSG 


SCNEXT 


SCHED sub. for output of messages 


SCNEXT 


SCNEXT 


SCHED sub. to find next executable candidate 


SCUPDATE 


SCNEXT 


SCHED sub. to change SCHED file 


SDBUF 


SDBUF 


Side buffering processor pro lay dummy entry point 


SEARCHAI 


ESU 


Initiate AI file search 


S EG LOAD 


EXTM 


Process SEGLOAD CALs 


SETNAME 


SNAM 


Process SETNAME CALs 


SETOVR 


GETNRT 


Subr. to test/set abort override in l/O CALs 


SETPRI 


JOB2 


Sub. to set a job's priority in the directory 


SETUP 


REWIND 


Sub. to open a DCB and get its assignment 


SEX 


SEX 


Symbiont executive resident code and context 


SIGABNM 


SIGNAL 


Routine to process SIGNAL ECB obnormal conditions 


SIGCHK 


SIGNAL 


Routine to process checks on signal services 


SIGNAL 


SIGNAL 


Process SIGNAL CAb 


SIGNAL! 


SIGNAL 


Internal SIGNAL CAL processor entry point 
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Table t>-V. S/stem Overlay En<ry Fbinh (cont.) 



Entry Point Nome 


Overlay Name 


Description 


SIMIKEY 


SYM3 


Simulote 'SCRYDD,!' key-in for symbionts 


5JOB 


SJOB 


Proceis SX)B CALs 


SMBACKUP 


SYM5 


Perform 'R' and 'B' lyinbiont key-in options functions 


SMBCDHEX 


SYM4 


Convert number from EBCDIC to hex 


SMBSYF 


SYM3 


Process o 'busy file' error return in symbiont processor 


SMCLOSF 


SYM2 


Sub. to close a symbiont file 


SMDEVERR 


SYM2 


Sub. to process unrecoverable l/O errors In symbionts 


SMDFIS 


JOB2 


Sub. to delete a job's files in the 'IS' area 


SMDFOS 


JOB2 


Sub. to delete a job's files in the 'OS' area' 


SMFEOD 


SYM2 


Sub. to handle EOD in output symbiont 


SMFINDF 


SYM3 


Sub. to check for a busy file 


SMGETF 


SYM2 


Sub. to get next file for SYMB/COOP to read 


SMGETOF 


SYM2 


Sub. to get next file for output symbiont to process 


SMGFTQF 


SYM2 


Sub. to Rnd file ossnciated with •SYYNDD,Q' 
key-in 


SMHEXBCD 


SYM4 


Convert number from hex to EBCDIC 


SMINIT 


SYM3 


Sub. to initialize context for o symbiont device 


SMJOBFIN 


SYM3 


Sub. to process JOB/ FIN in input symbiont 


SMWMSG 


SYM2 


Format and output symbiont messages to OC 


SMXKEY 


SYM2 


Sub. to process the 'SYYNDD,X' key-in 


SMXTND 


SYM5 


Allot a symbiont extension file 


SNAM 


SNAM 


Process setname CALi 


SNAP 


CRS 


SNAP key-in processing 


START 


SIGNAL 


Process START CAb 


STATUS 


EXIM 


Process STATUS CALs 


STDLB 


STDLB 


Process STDLB CALs 


STIAAABNM 


SIGNAL 


Routine to process STIMER ECB abnormal conditions 


STIMER 


SIGNAL 


Process STIMER CALs 


STLBCHK 


STDLB 


Routine to process checks on STDLB services 


STOP 


SIGNAL 


Process STOP CAU 
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Table D-1.. System Overlay Entry Points (cont.) 



(_ 



Entry Point Name 


Overlay Name 


Description 


STPIOl 


lOEX 


Process STOPIC/STARTIO CALs 


STPI02 


lOEX 


Same entry as STPIOl (lO EX) 


STRTIOl 


lOEX 


Same entry as STPIOl (lOEX) 


STRTI02 


lOEX 


Same entry as STPIOl (10 EX) 


SYMCUP 


SYM2 


Sub. to do symbiont device clean-up 


SYMl 


SYMl 


Symbiont executive 


TAPE 


TAPE 


Tope handler pro lay dummy entry point 


TDLOAD 


MMROOT 


Sub. to do actual looding of map and ACI 


TELCNTRL 


TEL2 


Entry for TEL control/break 


TELERROR 


TELl 


Common TEL error processing 


TELEX EC 


TELl 


Execution of a TEL command 


TELREAD 


TEL2 


Reads a TEL command 


TEL3 


TEL3 


Initialize TEL work area 


TERM 


TERM 


Process TERM CALs 


TEST 


WAIT 


Process TEST CAl^ 


TE5TBUF 


GETNRT 


Sub. to test the validity of caller's Read/Write buffer 


TEST LOOP 


TEX2 


Initiates TEX line testing 


TESTWT4 


GETNRT 


Routine to test for delete-on-post I/O request 


TEX 


TEX 


Terminal executive context 


TEXBUFFR 


TEXl 


Gets BLK. BUF. for TEX workspace 


TEXEXEC 


TEX2 


Initiates TJEAEX processing 


TEX IT 


TRAPS 


Process trap exit CALs 


TI 


TIOl 


Secondary task initiation Part 1 


TICRASH 


TI02 


Secondary task initiation crash routine 


TIME 


WAIT 


Process TIME CAb 


TI02ABEN 


TI02 


Sub. for abnormal end corKJitions during sec^ task INIT 


TI03DBUG 


TI03 


Routine sets up DEBUG controls before task entry 


TIRFT 


TI03 


Sub. to initialize URFT table 


TISAST 


TI02 


Sub. to sort and store an AST entry 
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Table 0-1. S/«tein Overia/ Entry toinh (cont.) 



Entry Point Name 


Overlay Name 


Description 


TISCHN 


TI03 


Sub. to dechain chained temp space 


TISD 


TI03 


Sub. to build a segment descriptor 


TISDECHN 


T103 


Sub. to chain a segment descriptor 


TISEARCH 


TI03 


Sub . to search for shared segments 


TISREAD 


TI02 


Sub. to perform all file reads for task initiation 


TIS15 


TI02 


Secondary task Initiation Part 2 


TIS21 


TI02 


Entry point from TIOl for tasks with no segments 


TMABORT 


TERM 


Sub. to abort a foreground task 


TAAABRTT 


TERM 


Sub . to abort a load modu le 


TMCKADP 


TMTYC 


Sub. to check a range of addresses 


TMCKADR 


TMTYC 


Sub. to check an address and convert to real if virtual 


TMDCBERR 


EXTM 


Sub. to process DCS errors 


TMDELAET 


ENQ 


Sub. to free an AET and the EDT if idle 


TMDEQ 


ENQ 


Sub . to dequeue an item 


TMENQ 


ENQ 


Sub . to enqueue an item 


TMFINDJ 


TMGETP 


Sub. to get job ID by JOBNAME 


TMFINDT 


TMGETP 


Sub. to get task ID by task name 


TMGETIDS 


TMGETP 


Sub. to get job and task identification 


TMGETJID 


TMGETP 


Sub. to get job ID from P11 and P12 in FPT 


TMGETP 


TMGETP 


Sub. to fetch priority from an FPT 


TMGETTID 


TMGETP 


Sub . to get task ID from P3 and P4 in FPT 


TMGRA 


TMTYC 


Get the real address and protection for a virtual add 
address 


TMLM 


TERM 


Subroutine to terminate or abort one load module 


TMSETE 


EXTM 


Sub. to set R8 and RIO in RTS if CAL processing error 


TMSETPSD 


CHECK 


Sub. to alter PSD in RTS 


TMSETREG 


CHECK 


Sub. to alter R8 and RIO in RTS "^ 


TMSTOP 


SIGNAL 


Internal entry into STOP CAL processor 


TMTERM 


TERM 


Sub. to tenninatea foreground task 


TMTRMJ 


TERM 


Subroutine to terminate oil bad modules in a job 
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Table D-1 . System Overby Entry Points (cont.) 



( 



Entry Point None 


Overlay N«ne 


DescripHdn 


TMTiyvM 


TERM 


Sub. to terminate a bad module 


TMTYC 


TMTYC 


Sub. to SFT FPT type completion word parameter 


TMTYCB 


TMTYC 


Sub. to set FPT type completion word busy 


TMTYC S 


TMTYC 


Sbroutine to set FPT type completion in stand, FPT 


TMTYC 15 


TMTYC 


Sub. to set TYC in R15 into FPT TYC word 


TMTYC15S 


TMTYC 


Sub. to set TYC in R15 into TYC word in stand, FPT 


TMVADR 


TMTYC 


Sub. to check a virtual address (no conversion) 


TMWALL 


WAIT 


Sub. to do wait all on SECBS 


TI^APCRSH 


TRAPS 


Trap crash entry 


TRAPS 


TRAPS 


Trap handler entry 


TRAPS 


TRAPS 


Internal entry for trap handling 


TRAP70 


TRAPS 


Process TRAP CAL 


TRTN 


TRAPS 


Process TRAP return CAL 


TRTY 


TRAPS 


Process TRAP retry CAb 


TRUNCATE 


DELETE 


Process TRUNCATE CALs 


TT 


TT 


Sub. to do secondary task terminations 


TTDEBUG 


DfiSI 


Task termination cleanup for DEBUG 


TTJOB 


TTJOB 


Sub. to clean job controls for task termination 


TTLN 


TT 


Subroutine to determine if this is a TJE job 


TTPRIM 


TT 


Sub. to do misc. task cleanup for primary termirKitions 


TYPE 


PRINT 


Process all TYPE CALs 


USEARCH 


DBS2 


Debug scon routine to search for user rwme symbols 


VERACCNT 


TEX1 


Verify account format 


WAIT 


WAIT 


Process WAIT CALs 


WAITALL 


WAH 


Process WAITALL CAU 


WAITANY 


WAIT 


Process WAITANY CALs ^ 


WBLOCK 


RWBFIL 


Sub. to write out a blocking buffer 


WCGETJOB 


SYM3 


Sub. to define next job file for output COOP 


WCOOP 


SYM4 


Process output requests to a symbiont dedicated device 
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Toble D-1 . S/stwn Overlo/ Entry Mnh (eont.) 




Entry Point Name 


Overlay Name 


Description 


WCSTSYM 


SYM3 


Sub. to free file ipoce for ou«put COOP 




WEOF 


REWIND 


Ptocesi WEOF CALs 




WEOFDEV 


REWDEV 


Process WEOF to devices 




WLBLOCK 


RWBFIL 


Sub. to write the current block of a RAD file 




WRITDIR 


FINDBB 


Sub. to write a directory sector 
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